Сформируйте одномерный массив из 4 элементов (значения элементов зависит от порядкового номера массива и вычисляется по формуле i^2). Вычислить сумму значений элементов одномерного массива.

Question

Информатика

Лидя

21 января, 12:17

Сформируйте одномерный массив из 4 элементов (значения элементов зависит от порядкового номера массива и вычисляется по формуле i^2). Вычислить сумму значений элементов одномерного массива.

+1

Ответы (1)

Знаете ответ на вопрос?

Петруня · Answer 1

Var a:array[1 ... 4] of integer;

i, sum:integer;

Begin

for i : = 1 to 4 do begin

a[i]: = i*i;

sum : = sum + a[i];

writeln (a[i]) ;

end;

writeln (sum) ;

End.