Question

СРОЧНО!!!
Задача по языку программирования Паскаль АВС.


Массив Д(6) заполняется с клавиатуры, вычесть квадраты всех элементов массива и вывести результат на экран в строку.
Записать задачу на языке программирования.

Answer 1

var i:integer;
begin
var ar:=ReadArrInteger(6); //инициализирую ввод массива из 6 элементов, 1 элемент - 0
for i:=0 to 5 do //цикл для возведения в квадрат
ar[i]:=sqr(ar[i]); //возводит элемент в квадрат
ar.Print(','); //вывод через запятую
end.