Определить максимальный элемент массива b(размерность - вопрос №502664543 от 26032004й 25.11.2022 16:42

Question

Информатика: Определить максимальный элемент массива b(размерность 50) и его порядковый номер xi 0. в паскале.

26032004й · Answer

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. в паскале.