Дан массив целых чисел из n элементов сформированный случайным образом. Определить, сколько в нем чисел кратных 7

написать программу в паскаль

Question

Информатика

Федосей

26 ноября, 14:43

Дан массив целых чисел из n элементов сформированный случайным образом. Определить, сколько в нем чисел кратных 7

написать программу в паскаль

+4

Ответы (1)

Знаете ответ?

Любаха · Answer 1

Var

a, k, n, i, sum: integer;

begin

read (n, k) ;

for i : = 1 to n do

begin

read (a) ;

if a mod k = 0 then sum : = sum + a;

end;

writeln (sum) ;

end.

где k - заданное число которому должны быть кратны элементы массива

n - кол-во элементов массива

Дан массив целых чисел из n элементов сформированный случайным образом. Определить, сколько в нем чисел кратных 7написать программу в паскаль

Дан массив целых чисел из n элементов сформированный случайным образом. Определить, сколько в нем чисел кратных 7

написать программу в паскаль