program SumOfSquares; var n, i: integer; a: array [1..100] of real; sumOfSquares: real; begin write('Введите количество чисел: '); readln(n); sumOfSquares := 0; for i := 1 to n do begin write('Введите число ', i, ': '); readln(a[i]); sumOfSquares := sumOfSquares + a[i] * a[i]; end; writeln('Сумма квадратов введенных чисел: ', sumOfSquares); end.
Пользователю необходимо ввести количество чисел n и сами числа a1, a2, ..., an. Программа будет вычислять сумму квадратов введенных чисел и выводить результат на экран.
Пример программы на Pascal:
program SumOfSquares;var
n, i: integer;
a: array [1..100] of real;
sumOfSquares: real;
begin
write('Введите количество чисел: ');
readln(n);
sumOfSquares := 0;
for i := 1 to n do
begin
write('Введите число ', i, ': ');
readln(a[i]);
sumOfSquares := sumOfSquares + a[i] * a[i];
end;
writeln('Сумма квадратов введенных чисел: ', sumOfSquares);
end.
Пользователю необходимо ввести количество чисел n и сами числа a1, a2, ..., an. Программа будет вычислять сумму квадратов введенных чисел и выводить результат на экран.