[Prof]

Ограничение чисел какое?

[greenfa1ry]

без ограничения

[Drongo]

я долго пытался но так и не получилось »

Наброски, заметки, ваши попытки в студию.

[greenfa1ry]

Код:

program 3ad_2;
const n=10;
var
a:array [1..n] of integer; i,s integer;
begin
for i:=1 to n do
writeln ('vvedite nomer elementa masiva ',i,':');
readln (a[i]);
end;
s:= 8
for i:=1 to n do begin
if a[i] mod 0=8 then s:=s/a[i];
end;
writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . ');
readln;
end.

побывал по примеру писать получилось как-то так

[DedAlex]

Пример почти правильный. Надо его подогнать под ваше условие

Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномер¬ном массиве. »

Для этого замените 3 строчки

s:= 8 »

if a[i] mod 0=8 then s:=s/a[i]; »

writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . '); »

[greenfa1ry]

Код:

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 (сумма) я взял для того чтобы проще было обсчитать пример, поскольку надо вбить формулу для подальшего обсчета.