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

Question

Информатика

Вовуля

10 февраля, 15:29

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

+2

Ответы (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.