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

Question

Информатика

Митя

18 марта, 23:03

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

+3

Ответы (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.