Question

Составить программу обработки массива F(21). Каждый третий элемент массива F возвести в квадрат, если элемент отрицательный. Эти значения напечатать. Pascalabc( 9 класс)

Answer 1

Var
  i: integer;
  f: array[1..21] of integer;
begin
  randomize;
  for i := 1 to 12 do 
  begin
    f[i]:=random(21)-10;
    if (i mod 3 = 0)and(f[i]<0) then f[i]:=sqr(f[i]);
    writeln(f[i]);
  end;
end.

Answer 2

Программа на языке PascalABC для обработки массива F(21), где каждый третий отрицательный элемент возводится в квадрат, может выглядеть следующим образом:

program ProcessArray;

const
  N = 21; // Размер массива

var
  F: array[1..N] of Integer;
  i, countNegatives: Integer;

begin
  // Инициализация массива F случайными значениями (можно ввести с клавиатуры или задать иначе)
  Randomize;
  for i := 1 to N do
    F[i] := Random(100) - 50; // Генерация случайных чисел от -50 до 49

// Вывод исходного массива
  writeln('Исходный массив F:');
  for i := 1 to N do
    write(F[i], ' ');

writeln;
  writeln('Элементы, возводимые в квадрат:');
  
  countNegatives := 0; // Счетчик отрицательных элементов
  
  // Обработка массива: каждый третий отрицательный элемент возводим в квадрат
  for i := 1 to N do
  begin
    if (F[i] < 0) then
    begin
      countNegatives := countNegatives + 1;
      if (countNegatives mod 3 = 0) then // Каждый третий отрицательный элемент
      begin
        F[i] := F[i] * F[i]; // Возводим в квадрат
        writeln(F[i]); // Выводим значение
      end;
    end;
  end;

writeln;
  writeln('Итоговый массив F после обработки:');
  // Вывод итогового массива
  for i := 1 to N do
    write(F[i], ' ');

end.

Эта программа создает массив F размером 21 элемент и заполняет его случайными значениями от -50 до 49. Затем программа проходит по массиву, и каждый третий отрицательный элемент возводит в квадрат, выводя эти значения. Наконец, программа выводит исходный массив и массив после обработки.