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.

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет нужное вам действие:

pascalCopy code
program FindMinNegativeIndex;

var
  numbers: array[1..30] of integer;
  i, minNegativeIndex: integer;

begin
  // Заполнение массива произвольными числами
  randomize;
  for i := 1 to 30 do
  begin
    numbers[i] := random(201) - 100; // Генерация чисел от -100 до 100
  end;

  minNegativeIndex := -1; // Индекс минимального отрицательного числа

  // Поиск минимального отрицательного числа и его индекса
  for i := 1 to 30 do
  begin
    if (numbers[i] < 0) and ((minNegativeIndex = -1) or (numbers[i] < numbers[minNegativeIndex])) then
    begin
      minNegativeIndex := i;
    end;
  end;

  // Вывод результата
  writeln('Массив чисел:');
  for i := 1 to 30 do
  begin
    write(numbers[i], ' ');
  end;
  writeln;
  
  if minNegativeIndex <> -1 then
  begin
    writeln('Номер минимального отрицательного числа: ', minNegativeIndex);
  end
  else
  begin
    writeln('В массиве нет отрицательных чисел.');
  end;

  readln;
end.

В этой программе создается массив из 30 произвольных чисел от -100 до 100. Затем программа ищет минимальное отрицательное число и выводит его индекс. Если в массиве нет отрицательных чисел, программа сообщит об этом.