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 - проверяет остаток от деления чисел