Сформулируйте условие задачи для программы: var a:array [1..100] of integer;s,i,n: integer; Beginreadln(n); for i:=1 to n do a[i]:=sqr(i);s:=0;for i:=1 to n do s:=s+a[i];writeln(s);end.

Question

Meafyufot

4 год назад

ОТВЕТЫ

Sanders Roger

Oct 24, 2020

Создайте массив размерностью n, n<100. Заполните массив квадратами порядковых номеров их элементов, и найдите сумму элементов массива.

Ну вот как то так.

270