+1 дауыс
1.0k көрілді

A [8,8] массиві берілген. Массивтің әр бағанындағы максимумды табу керек?

2 жауап

+1 дауыс
 
Жақсы жауап

Program Max_a_8_8 (a[1..8, 1..8] array of real);
var 
     i, j : integer;
     m  : real;
begin
  for j:=1 to 8 do begin
    m:=a[1;j];
    for i:=2 to 8 do begin
      if m < a[i,j] then m := a[i,j]
    end; 
    writeln(j, " - баганадагы ен улкен сан: ", m);
  end;
end.

+1 дауыс

Мынаны қарап көріңдерші, қолымда Паскалім болмай тексере алмадым. Қате болса ренжімең:

program z_array;
uses crt;
var a:array[1..8,1..8] of real;
 i,j,max:byte;
begin
 clrscr;
 writeln('Matritsa elem. engiz');
  for i:=1 to i do
 for j:=1 to j do
 begin
 write('a[',i,',',j,']= ');
 readln(a[i,j]);
 end;
 
 writeln;
 writeln('Berilgen matritsa');
  for i:=1 to i do
 begin
 for j:=1 to j do
 write(a[i,j]:7:2);
 writeln;
 end;
  writeln;
 {Осы жерде матрица бағандарындағы max іздейміз}

 for i:=1 to j do
 begin
 max:=a[i,j]
 for j:=1 to i do
if max>a[i,j] then max:=max
       else max:=a[i,j];
 writeln('Bagan',i,' Maximum mani', a[i,j]:7:2);
 end;
  readln;
end.

...