Сформулируйте условие задачи для программы:
var a:array [1..100] of integer;
s,i,n: integer;
Begin
readln(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.
var a:array [1..100] of integer;
s,i,n: integer;
Begin
readln(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.
More Questions From This User See All
Answers & Comments
Ответ:
Создайте массив размерностью n, n<100. Заполните массив квадратами порядковых номеров их элементов, и найдите сумму элементов массива.
Ну вот как то так.