Question

Помогите пожалуйста! Паскаль.

В массиве случайных чисел М(15) . Найти кол-во элементов кратных 4 и которые попадают в интервал [-5;3]

Answer 1

Ответ:

var i,m,k:integer; s: array[1..15] of  integer;

begin

for i :=1 to 15 do begin

s[i]:= random (-5,3);

if (s[i] mod 4) = 0 then k:= k +1;

end;

writeln(s);

write('k = ', k);

end.

Объяснение:

программа выводит массив и количество элементов кратных 4