Дам 50 баллов. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Количество элементов задается как константа. (Это начало, нужно продолжить) const N=10; Var b: array [1..N] of integer; …
Ответ:
var
i : integer;
max1 : integer;
nomer : integer;
begin
for i := 1 to N do
b[i] := random(-20, 25);
max1 := b[1];
if b[i] < max1 then
max1 := b[i];
nomer := i;
end;
writeln('Номер наименьшего элемента ', nomer);
end.