Программа нахождения наибольшего элемента массива
Программа нахождения наибольшего элемента массива
Гость
Ответ(ы) на вопрос:
ГостьДелал в Pascal ABC.
var a:array of integer;
i,n,max:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=-100 + random(201);
if (i = 0) or (a[i] > max) then max:=a[i];
end;
writeln(a);
writeln('max = ',max);
end.
Не нашли ответ?
Похожие вопросы