Составить программу нахождения максимального числа из 15 целых чисел
Нет комментариев
Ответы
Гость PascalABC
const
n = 10;
var
a := ArrRandom(n);
max : integer;
begin
a.Println;
for var i:=0 to n-1 do
if (a[i] > max)
then max:=a[i];
writeln(max);
end.
Нет комментариев
Похожие вопросы
Список предметов
