Элемент одномерного массива возвести в квадрат и вывести новый полученный массив на экран. Pascal abc
For i:=1 to N do begin A[i]:=A[i]*A[i]; write (A[i], ' '); end;