Дан массив С. Найти номер и минимальный элемент в массиве.

Question

Информатика

Фёкла

5 января, 11:59

Дан массив С. Найти номер и минимальный элемент в массиве.

+3

Ответы (1)

Знаете ответ на вопрос?

Ульян · Answer 1

Var ar:array[1 ... 10] of integer;

i, min, mini:integer;

begin;

min:=101;

randomize;

writeln ('Array:') ;

for i:=1 to 10 do

begin;

ar[i]:=random (100) ;

write (ar[i]:4) ;

if ar[i]
begin;

min:=ar[i];

mini:=i;

end;

end;

writeln;

writeln ('Min:', min,' in number:', mini) ;

end.