Автор - Avlonne1
Ответ:
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