Всі умови | Умова: Дано натуральне число n, дійсні числа a1, ..., an. Обчислити ...
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №136)
Розв'язок на Pascal
program pr136_n;
var
i, n : integer;
s, a : real;
begin
write('n = '); readln(n);
s := 0;
for i := 1 to n do
begin
write('a[',i,'] = '); readln(a);
s := s + sqr(sqrt(abs(a)) - a);
end;
writeln('Result = ', s:5:2);
readln;
end.