Question

дан одномерный массив размерностью N, заполненный случайными числами от -20 до 20. массив вывести на экран. каждый третий элемент массива возвести в квадрат, если элемент отрицательный. изменённый массив вывести на экран. срочно надо, заранее спасибо! ​(паскаль)

Answer 1

Ответ:

begin

 var A:array of integer;

 var N: integer;

 write('Длина массива: '); readln(N);

 setlength(A,N);

 A.FillRandom(-20,20);

 writeln('Исходный массив: ',A);

 for var L:=0 to A.High do begin

   if (L+1) mod 3 = 0 then

     if A[L]<0 then A[L]:=A[L].Sqr

 end;

 write('Полученный массив: ',A);

end.

Примечание:

.Sqr - возвращает квадрат числа

.High - возвращает высший элемент массива

mod - проверяет остаток от деления чисел

Answer 2

Конечно, вот пример кода на Pascal, который выполняет указанные вами действия:

pascalCopy code
program SquareNegativeElements;

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

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

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

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

  // Возводим в квадрат каждый третий отрицательный элемент массива
  writeln;
  writeln('Измененный массив:');
  for i := 1 to N do
  begin
    if (i mod 3 = 0) and (arr[i] < 0) then
      arr[i] := arr[i] * arr[i];
    write(arr[i], ' ');
  end;

  readln;
end.

Этот код создает массив arr размером N, заполняет его случайными числами от -20 до 20, а затем возводит в квадрат каждый третий отрицательный элемент массива и выводит измененный массив на экран.