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

В паскали

Question

Информатика

Наум

27 апреля, 03:42

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

В паскали

+3

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

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

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

В паскали