Question

Сформулируйте условие задачи для программы: 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.

Answer 1

Ответ:

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

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

Answer 2

Программа выполняет следующую задачу:

Вводится число n. Затем в массив a заполняются квадраты чисел от 1 до n. Далее производится подсчет суммы всех элементов массива a. Результат выводится на экран.