, нужно составить программу в pascal Задача на определение суммы элементов целочисленного массива удовлетворяющих некоторому условию
Дан целочисленный массив из 10 элементов. Диапазон значений элементов массива от -50 до 49.
Найти сумму элементов массива не кратных 7.
не уверен что нужно было наполнять массив рандомом
Объяснение:
program znaniya;
var
i,b : integer;
a : array[0..10] of integer;
begin
randomize();
for i:=0 to 10 do
a[i] := random(-50,49);
for i:=0 to 10 do
if (a[i] mod 7) <> 0 then
b := b + a[i];
print(b)
end.