Дан массив из 10 целых чисел от - 20 до 20. Написать программу, которая определяет количество четных чисел, делящихся на 3

помогите решить, паскаль, 9 класс

Question

Информатика

Ульянка

23 июля, 06:04

Дан массив из 10 целых чисел от - 20 до 20. Написать программу, которая определяет количество четных чисел, делящихся на 3

помогите решить, паскаль, 9 класс

+4

Ответы (1)

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

Лавра · Answer 1

Const n=10; minr=-20; maxr=20;

var a:array[1 ... n] of integer; i, k:integer;

begin

for i:=1 to n do begin a[i]:=random (maxr-minr+1) + minr; write (a[i],' ') end;

writeln;

k:=0;

for i:=1 to n do if (a[i]0) and (a[i] mod 6=0) then k:=k+1;

write (k)

end.

Дан массив из 10 целых чисел от - 20 до 20. Написать программу, которая определяет количество четных чисел, делящихся на 3помогите решить, паскаль, 9 класс

Дан массив из 10 целых чисел от - 20 до 20. Написать программу, которая определяет количество четных чисел, делящихся на 3

помогите решить, паскаль, 9 класс