Question

Помогите возвести каждый второй элемент массива в квадрат(паскаль)

Answer 1

const n = 15;

var

   a: array[1..n] of real;

   i, k: integer; 

begin

   for i:=1 to n do readln(a[i]);

   for i:= 1 to n do

   begin

       if i mod 2 = 0 then

       a[i]:= sqr(a[i]);

   writeln(a[i]);

   end;

end.

Answer 2

Для возвышения каждого второго элемента массива в квадрат, нужно пройтись по всем элементам массива, выбрать каждый второй элемент и заменить его на его значение, возведенное в квадрат. В языке Pascal (Delphi) это можно сделать следующим образом:

pascalCopy code
program SquareEverySecondElement;

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

var
  arr: array[1..N] of Integer;
  i: Integer;

begin
  // Заполним массив для примера
  for i := 1 to N do
    arr[i] := i;

  // Возводим каждый второй элемент в квадрат
  for i := 2 to N step 2 do
    arr[i] := arr[i] * arr[i];

  // Выводим результат
  for i := 1 to N do
    Write(arr[i], ' ');

  ReadLn;
end.

В этом примере мы используем цикл for, чтобы пройтись по каждому второму элементу массива (начиная с индекса 2) и возвести его в квадрат, присваивая новое значение этому элементу. После этого выводим измененный массив на экран.