Question

Антон, давай ещё раз с заданием.
Напиши программу в паскале заполнения массива из 15 элементов случайными числами из диапазона [-5,10] и поиска максимального элемента.

Answer 1

Ответ:

var x:integer;

a:array[0..14] of integer;

begin

 for var i:=0 to 14 do

 begin

   a[i]:=random(16)-5;

   writeln(a[i]);

   if x<a[i] then x:=a[i];

 end;

 writeln;

 writeln('Максимальное число в массиве = ',x);

end.