Составить программу ** нахождение макимального значения в массиве чисел.

0 голосов
33 просмотров

Составить программу на нахождение макимального значения в массиве чисел.


Информатика (18 баллов) | 33 просмотров
Дан 1 ответ
0 голосов

Program mas;
const N=(количество чисел в массиве);
var a:array[1..N] of integer;
      i,max:integer;
begin
for i:1 to N do readln(A[i]);
  max:=0;
for i:=1 to N do
  if (A[i]>max) or (max=0) then max:=A[i];
writeln(max);
end.

(436 баллов)
0

begin for i:=1 to N do readln(A[i]);