Question

В массиве B1, B2, ... Bn найти первое положительное число и напечатать его номер. Язык програмирования ПАСКАЛЬ

Answer 1

Program XXX;
var i, n, k : integer;
     b : array [1..100] of real;
begin
write ('введите n=');
readln(n);
write ('введите массив b :');
for i:=1 to n do
read(b[i]);
k:=0;
i:=1;
while (i<=n) and (k=0) do
  if b[i]>0 then k:=i else i:=i+1;
if k=0 then write('положительных элементов - нет')
         else write('номер первого положительного элемента-', k )
end.

Answer 2

Для решения данной задачи на языке программирования Паскаль можно использовать цикл, который будет перебирать элементы массива B1, B2, ..., Bn и проверять, является ли текущий элемент положительным числом. Если такой элемент найден, мы можем вывести его номер.

Вот пример кода на языке Паскаль, который решает данную задачу:

program FindPositiveNumber;
const
  N = 10; // размер массива
var
  B: array[1..N] of Integer; // объявление массива
  i: Integer; // переменная для цикла
begin
  // заполнение массива B1, B2, ..., Bn значениями
  B[1] := -2;
  B[2] := 0;
  B[3] := 5;
  B[4] := -7;
  B[5] := 3;
  B[6] := -1;
  B[7] := 9;
  B[8] := -4;
  B[9] := 2;
  B[10] := -6;

// поиск первого положительного числа и вывод его номера
  for i := 1 to N do
  begin
    if B[i] > 0 then
    begin
      writeln('Первое положительное число найдено в ячейке ', i);
      break; // выход из цикла после нахождения первого положительного числа
    end;
  end;
end.

В данном примере мы объявляем массив B размером N и заполняем его значениями. Затем мы используем цикл `for` для перебора элементов массива и проверки, является ли текущий элемент положительным числом. Если такой элемент найден, мы выводим его номер с помощью процедуры `writeln`. Затем мы используем оператор `break` для выхода из цикла после нахождения первого положительного числа.

Обратите внимание, что в приведенном примере значения элементов массива B1, B2, ..., Bn заданы явно для наглядности. В реальной программе значения могут быть введены пользователем или сгенерированы случайным образом.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их.