Код:
program aaaa;
const = 10;
var array [1..n] of real; sum: real; i : integer;
begin
writeln ('vvedite kvadrat neotrecatelnix elementov');
for:= 1 to n do
readln (a[1]);
writeln;
write ('vvedite 4iclo v 3adanom masive, sum = ');
readln (sum);
sum:= (не имею понятия как правильно понять что требует найти в задаче, точнее формулу)
for i:=1 to n do
if a [1] = sum then;
writeln ('takogo 4icla v masive nety');
end.
я не знаю что ввести мне в значение sum
значение sum (сумма) я взял для того чтобы проще было обсчитать пример, поскольку надо вбить формулу для подальшего обсчета.
