Дан массив размера N. Вывести минимальный элемент данного массива и его
номер.

Const N = 10;
Var m : array[1..N] of Integer;
i,k : Byte;
Begin
k:=1;
For i:=1 to N do
Begin
m[i]:=Random(100);
If m[i] end;
Writeln(Value: ,m[k], Index: ,k);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!