Задание:
Найти максимальный элемент массива, состоящего из 10 элементов в Delphi
Решение:
program massiv; var a: array[0… 9] of integer; i,m: integer; begin// заполняем массивfor i: =0 to 9 do readln (a[i]); // вводим поочередно 10 чисел// вычисляемfor i: =0 to 9 do if (a[i] > m) then m: =a[i]; writeln (m); readln; end.
Знаете другой ответ?