Найти в одномерном массиве А10 количество положительных элементов, кратных трём. Написать программу на языке Паскаль.

Question

Информатика

Доша

4 марта, 04:55

Найти в одномерном массиве А10 количество положительных элементов, кратных трём. Написать программу на языке Паскаль.

+1

Ответы (1)

Знаете ответ на вопрос?

Сибилла · Answer 1

var A:array[1 ... 10] of integer;

i, k:integer;

begin

k:=0;

for i:=1 to 10 do

if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;

writeln ('k=', k) ;

readln;

end.

помоему так)