Задание:
С клавиатуры вводятся 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.
Знаете другой ответ?