Question

ПОМОГИТЕ, нужно составить программу в pascal
Задача на определение суммы элементов целочисленного массива удовлетворяющих некоторому условию

Дан целочисленный массив из 10 элементов. Диапазон значений элементов массива от -50 до 49.


Найти сумму элементов массива не кратных 7.

Answer 1

Ответ:

не уверен что нужно было наполнять массив рандомом

Объяснение:

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.