Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль недоработка!
Code
var
a:array [1..100,1..100] of integer;
amin,amax,kolmax,kolmin:array[1..100] of integer;
n,m,j,i,min,max,p,k,x,z :integer;
f:boolean;
begin
write('Vvedite kol-vo strok=');
read (m);
write('Vvedite kol-vo stolbcov=');
read (n);
for i:=1 to m do
for j:=1 to n do
begin
write('Vvedite a[',i,',',j,']=');
read(a[i,j]);
end;
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j]:4);
writeln;
end;
k:=1;
for i:=1 to m do
begin
max:=a[i,1];
min:=a[i,1];
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
amax[k]:=max;
amin[k]:=min;
k:=k+1;
writeln('Min v ',i,' stroke=',min,' ',',Max=',max);
end;
for i:=1 to k-1 do
begin
for j:=i+1 to k-1 do
begin
if amax[i]<amax[j] then
begin
p:=amax[i]; amax[i]:=amax[j]; amax[j]:=p;
end;
if amin[i]>amin[j] then
begin
x:=amin[i]; amin[i]:=amin[j]; amin[j]:=x;
end;
end;
end;
writeln('Otsortirovannye max elementy');
for i:=1 to k-1 do
writeln(amax[i]);
writeln('Otsortirovannye min elementy');
for i:=1 to k-1 do
writeln(amin[i]);
kolmax[1]:=0;
z:=1;
for j:=1 to n do
begin
for i:=1 to m do
begin
for k:=1 to k-1 do
begin
if amax[k]=a[i,j] then kolmax[z]:=kolmax[z]+1;
if amin[k]=a[i,j] then kolmin[z]:=kolmin[z]+1;
end;
end;
z:=z+1;
end;lmax[z]+1;
if amin[k]=a[i,j] then kolmin[z]:=kolmin[z]+1;
end;
end;
z:=z+1;
end;
for i:=1 to z-1 do
begin
writeln('Kol-vo max elementov v ',i,' stolbce=',kolmax[i]);
writeln('Kol-vo min elementov v ',i,' stolbce=',kolmin[i]);
end;
Readln;
Readln

програма нехочет показывать скока минимальных и максимальных элементов находица в каждом стобце(помогите плиз!

Добавлено (30.01.11, 17:58)
---------------------------------------------
а задание вот!Дана матрица nxm Найти наибольший и наименьший элемент в каждой строке..Отсортировать эти максимумы по убыванию в матрицеб а минимумы по возрастаниюю. указать какое количество максимальных и минимальных элементов находица в каждом столбце.

1 | Автор: Tifa | 2011-01-30, 17:58 | Изменено: Tifa - Вс, 2011-01-30, 17:57   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: