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

[Clane]

Вот алгоритм поиска максимального числа в массиве.

Код

program maxmassiv(input,output);
var a: array [1..10] of Byte;
Max:integer;
I:byte;
begin
I:=0;
for I:=1 to 10 do
begin
writeln('Enter an integer:');
readln(a[i]);
end;
Max:=A[1];
For I:=1 to 10 do
begin
if Max<A[I] then Max:=A[I];
end;
writeln(Max);
readln;
readln;
end.

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

[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 11:57