Question

Помогите, пожалуйста! Выполнение в ПАСКАЛЕ. Составьте ПРОГРАММУ для нахождения ИНДЕКСА первого положительного элемента массива из 10 элементов, заданных случайным образом.

Answer 1

Var
a: array[1..10] of integer;
i, first: integer;
begin
randomize;
for i:=1 to 10 do
a[i] := random(50)-25;
for i:=1 to 10 do
if a[i] > 0 then
begin
first := i;
break;
end;
writeln(first);
end.

Answer 2

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

pascalCopy code
program FindPositiveIndex;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными числами
  for i := 1 to 10 do
    arr[i] := Random(21) - 10; // Генерируем числа от -10 до 10

  // Выводим массив на экран
  writeln('Массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');

  // Ищем индекс первого положительного элемента
  for i := 1 to 10 do
  begin
    if arr[i] > 0 then
    begin
      writeln;
      writeln('Индекс первого положительного элемента: ', i);
      break; // Выходим из цикла после нахождения первого положительного элемента
    end;
  end;

  // Если нет положительных элементов, выводим сообщение
  if i > 10 then
    writeln('В массиве нет положительных элементов.');

  readln;
end.

Эта программа создает массив из 10 случайных чисел в диапазоне от -10 до 10 и затем находит индекс первого положительного элемента (если такой есть) и выводит его на экран. Если в массиве нет положительных элементов, программа также сообщит об этом.