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

Question

Информатика

Евсей

26 марта, 04:47

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

+4

Ответы (1)

Знаете ответ?

Олюля · Answer 1

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 max
begin;

max:=ar[a];

i:=a;

end;

end;

Writeln ('Max:', max) ;

Writeln ('Number:', i) ;

end.