Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Определить максимальный элемент масива и его порядковый номер.

Ответ оставил Гость

Var ar:array[1..10] of integer;
a,max,i:integer;
begin
randomize;
Writeln(Array:);
for a:=1 to 10 do
begin;
ar[a]:=random(100);
writeln(ar[a]);
if maxbegin;
max:=ar[a];
i:=a;
end;
end;
Writeln(Max:,max);
Writeln(Number:,i);
end.