Question

Опишите на Паскале алгоритм, который находит и выводит номер и значение 4 положительного элемента массива + нужен контрольный пример. Помогите пожалуйста.

Answer 1

не забываем - нумерация в массиве начинается с 0

var

   d : array of integer := new integer[30];

   n : integer := -1;

   i : integer;

   

begin

   d := arrRandom(30, -100, 100);

   repeat

       n += 1;

       if d[n] > 0 then i += 1;

   until (n = 29) or (i = 4);

   writeln('массив: ', d);

   writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);

end.

Answer 2

Конечно, помогу! Вот алгоритм на языке Паскаль для поиска номера и значения четвёртого положительного элемента массива:

pascalCopy code
program FindFourthPositiveElement;

const
  N = 10; // Размер массива, можно изменить по необходимости

type
  TArray = array[1..N] of Integer;

var
  arr: TArray;
  countPositive, i: Integer;

procedure FindFourthPositiveElement(var arr: TArray; var countPositive: Integer);
var
  i, posCount: Integer;
begin
  posCount := 0; // Счётчик положительных элементов
  countPositive := 0; // Позиция четвёртого положительного элемента

  for i := 1 to N do
  begin
    if arr[i] > 0 then
    begin
      posCount := posCount + 1;
      if posCount = 4 then // Когда нашли четвёртый положительный элемент
      begin
        countPositive := i;
        Exit; // Выходим из процедуры, так как нас интересует только четвёртый положительный элемент
      end;
    end;
  end;
end;

// Процедура для вывода массива на экран
procedure PrintArray(arr: TArray);
var
  i: Integer;
begin
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;
end;

var
  i, position: Integer;

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

  Write('Массив: ');
  PrintArray(arr);

  FindFourthPositiveElement(arr, position);

  if position > 0 then
    Writeln('Четвёртый положительный элемент: ', arr[position], ' (индекс ', position, ')')
  else
    Writeln('В массиве нет четвёртого положительного элемента.');
end.

Контрольный пример: Предположим, у нас есть массив размером 10 элементов:

makefileCopy code
Массив: 3 -2 5 -1 -8 7 0 9 4 -6

В данном примере четвёртым положительным элементом является число 9, его индекс - 8.

Если вам нужно изменить размер массива, замените значение N на желаемое. Также, вы можете вручную задать элементы массива, если хотите провести тестирование на конкретных данных.