Максимальное число Опции

[Gid]

Скажите мне, фигли такая огромная программа?

Код

uses crt;
const n=6;
type mass=array[1..n,1..n]of integer;
       mas=array[1..n]of ibteger;
var
 i,g:integer;
 matr:mass;
 max:mas;
begin
 clrscr;
 writeln('Введите матрицу  ');
 for i:1 to n do for g:=1 to 10 do read(matr[i,g]);
 for i:=1 to n do for g:=1 to n do
      if matr[i,g]=1 then max[i]:=max[i]+1;
 i:=max[1];
 for i:=2 to n do if i<max[i] then i:=max[i];
writeln('Наибодьшая сумма-',i);
end.

Сообщение отредактировано: volvo - 17.12.2004 15:57