Запиши программу на языке программирования Паскаль.

Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Question

Информатика

Авдоша

23 октября, 15:16

Запиши программу на языке программирования Паскаль.

Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

+3

Ответы (1)

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

Евдуня · Answer 1

Var chisl:array [1 ... 5]of integer;

i, max:integer;

begin

for i:=1 to 5 do begin

Write (i,'-число=') ; Readln (chisl[i]) ; end;

max:=0;

for i:=1 to 5 do begin

if chisl[i]>max then max:=chisl[i]; end;

writeln'max chislo=', max) ;

end.

Запиши программу на языке программирования Паскаль.Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Запиши программу на языке программирования Паскаль.

Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.