ТутРешу.Ру

С клавиатуры вводятся 12 чисел. Найти максимальное

Задание:

С клавиатуры вводятся 12 чисел. Найти максимальное. По информатике сделать втурбопаскаль

Решение:

program chisla; var A: array [1… 12] of integer; max: integer; i: integer; beginmax: =0; writeln ('введите 12 чисел'); readln (A[12]); for i: =1 to 12 doif A[i] > max then max: =A[i]; writeln ('максимальное число=', max); end.




Знаете другой ответ?

Отправить свой ответ