Условие задачи
Составить программу на языке Паскаль для решения следующей задачи:
Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Входные данные для размерности массива и значения элементов массива задайте самостоятельно.
Ответ
Задаём размерность массива n=10, значения элементов массива - случайные.
program z_2;
const n=10;
var a: array[1..n] of integer;
i:integer;
begin
rand...
Потяни
