Question

Pascal
Имеется массив, состоящий из 30-ти произвольных чисел.
Необходимо написаться программу, которая выводит номер минимального числа
среди отрицательных чисел.

Answer 1

program mas_no_min_iz_otr;

const n=30;

var

a:array[1..n]of integer;

i,m,k:integer;

begin

for i:=1 to n do

begin

a[i]:=random(101)-50;

writeln(i:3,' ',a[i]:3);

end;

m:=0;

k:=0;

for i:=1 to n do

if a[i]<m then

begin

m:=a[i];

k:=i;

end;

writeln;

if k=0 then

write('Отрицательный нет')

else

write('Номер наименьшего отрицательного》',k)

end.