Как найти наибольшее из двадцати чисел? Решение в программе паскаль?

Question

Информатика

Божена

30 декабря, 20:16

Как найти наибольшее из двадцати чисел? Решение в программе паскаль?

+2

Ответы (1)

Знаете ответ на вопрос?

Кристинья · Answer 1

var

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

n, i:integer;

begin

for i:=1 to 20 do

readln (a[i]) ;

n:=a[1];

for i:=2 to 20 do begin

if a[i]>n then

n:=a[i];

end;

writeln ('naibolshee = ', n) ;

end.