СРОЧНО!!! Задача по языку программирования Паскаль АВС.
Массив Д(6) заполняется с клавиатуры, вычесть квадраты всех элементов массива и вывести результат на экран в строку. Записать задачу на языке программирования.
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.
Answers & Comments
Verified answer
Подробное решение во вложенииVerified answer
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.