Пример почти правильный. Надо его подогнать под
ваше условие
Цитата greenfa1ry:
|
Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномер¬ном массиве. »
|
Для этого замените 3 строчки
Цитата greenfa1ry:
|
if a[i] mod 0=8 then s:=s/a[i]; »
|
Цитата greenfa1ry:
|
writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . '); »
|
