Определить максимальный элемент массива B (размерность 50) и его порядковый номер Xi>0.

В паскале.

Question

Информатика

Белка

7 февраля, 23:57

Определить максимальный элемент массива B (размерность 50) и его порядковый номер Xi>0.

В паскале.

+5

Ответы (1)

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

Флорида · Answer 1

Var

i, imax, max:integer;

b:array[1 ... 50]of integer;

begin

for i:=1 to 50 do

begin

b[i]:=random (100) ;

write (b[i],' ') ;

if b[i]>max then

begin

max:=b[i];

imax:=i;

end;

end;

writeln;

writeln ('Максимальное число: ', max,'; его номер: ', imax) ;

end.

Определить максимальный элемент массива B (размерность 50) и его порядковый номер Xi>0.В паскале.

Определить максимальный элемент массива B (размерность 50) и его порядковый номер Xi>0.

В паскале.