Подсчитайте в одномерном массиве A{10} количество элементов делящихся на 3 без остатка.
Подсчитайте в одномерном массиве A{10} количество элементов делящихся на 3 без остатка.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a, b, x1, x2, x3, c, n, d, i, g :integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива');
readln (n);for i:=1 to n do
begin
writeln ('Введите s[', i, '] элемент');
readln (s[i]); a:=s[i]; if (a mod 3 = 0) then inc(c);
end;
writeln ('Количество чисел кратных 3 = ', c);
end.
P.S. Надеюсь на благодарность и лучший ответ.
Не нашли ответ?
Похожие вопросы