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

[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

[chucha]

В принципе подсчет только тех элементов матрицы, которые =1, а остальные не важно ноль там стоит или другое число.

вообще матрица должна вводится в ходе программы, т.е. программа должна сделать запрос на ввод матрицы с клавиатуры.