Cehuginn
4 год назад
Найти номер наименьшего элемента в массиве, заданного датчикомслучайных чисел на интервале [-20, 25]. Размер произвольный.Program numberminim;Var a: array[1..100] of integer; i, n, num, min: integer;Begin Write (‘n=’); Readln (n); For i:=1 to n do begin a[i]:= Random(46)-20; writeln (a[i]); end; min:=a[1];num:=1; For i:=2 to n do If a[i]< min then begin min:=a[i]; num:=i; end; Writeln(‘ номер наименьшего элемента: ‘,num);End. посчитайте
ОТВЕТЫ
Hafner Daniela
Nov 19, 2020
Program numberminim;
Var a: array[1..100] of integer;
i, n, min: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
a[i]:= Random(46)-20;
writeln (a[i]);
end;
min:=a[1];
For i:=2 to n do
If a[i]< min then
begin
min:=a[i];
end;
Writeln(' номер наименьшего элемента: ',min);
End.
Переменная num тут не нужна ты находил номер позиции наименьшего числа а не число
10
Смежные вопросы:
