Составить программу, которая будет вводить N чисел и искать максимальное число среди этих чисел.

1<=a[i], N<=100

Question

Информатика

Римлянин

29 октября, 19:49

Составить программу, которая будет вводить N чисел и искать максимальное число среди этих чисел.

1<=a[i], N<=100

+1

Ответы (1)

Знаете ответ?

Сюша · Answer 1

Const

n=100;

var

a:array[1 ... n] of integer;

max, i:integer;

begin

randomize;

for i:=1 to n do

begin

writeln (a[i]='') ;

readln (a[i]) ;

end;

max:=a[1];

for i:=2 to n do

If a[i]>max then begin

max:=a[i];

end;

writeln;

writeln ('Max=', max) ;

readln;

End.

Составить программу, которая будет вводить N чисел и искать максимальное число среди этих чисел.1<=a[i], N<=100

Составить программу, которая будет вводить N чисел и искать максимальное число среди этих чисел.

1<=a[i], N<=100