Question

ДАЮ 55 БАЛОВ
Задайте массив с помощью рандома 70 на отрезке -35 - 35
Найдите в нем максимальный элемент и его число

Answer 1

const n=10;

var

x: array [1..n] of integer;

kmax,k, smax : integer;

begin

randomize;

smax:=-99;

for k:=1 to n do

begin

x[k]:=random(70)-35;

write(x[k],' ');

if x[k]>smax then

begin

smax:= x[k];

kmax:=k;

end;

end;

writeln();

writeln(smax);

writeln(kmax);

end.