Написать программу которая формирует случайным образом массив из 20 целых чисел лежащих в диапазоне от 0 до 1000 после чего на экран выводится сам массив в одну строку следующей строке номер максимального элемента пробел максимальный элемент
Так уже решал такую задачу:
const n=20;
var
a:array[1..n] of integer;
i,max,nmax:integer;
begin
max:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] >max then begin
nmax:=i;
max:=a[i];
end;
write(a[i]:5);
end;
writeln;
writeln(nmax, ,a[nmax]);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
