Всі умови | Умова: Дано дійсні числа x1, ... , x17 Знайти суму значень xi - xj, (1 ≤ i
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №343)
program Pr343;
var
x : array [1..17] of integer;
i, j, sum: integer;
begin
for i:=1 to 17 do
read (x[i]);
writeln;
for i:=1 to 16 do
for j:=i+1 to 17 do
sum:=sum+abs(x[i]-x[j]);
writeln('Suma: ',sum);
readln;
end.