Pascal: Задан массив размерностью 100 случайных чисел из
диапазона (-85, +165). Вывести на экран все элементы
массива, а также максимальный из последних 25.
диапазона (-85, +165). Вывести на экран все элементы
массива, а также максимальный из последних 25.
Answers & Comments
Verified answer
vara:array[1..100]of integer;
i,max,c:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(251)-85;
if i=76 then
max:=a[i];
if i>76 then
if a[i]>max then
max:=a[i];
write(a[i],' '); end;
writeln;
writeln(max); end.