Задание
Дано 10 целых чисел. Определить количество положительных чисел, которые делятся без остатка на 3.
Выбор алгоритма решения задачи
В этой задаче нужно применять массив. И с помощью цикла, вносить 10 чисел. Потом поставить условие на определение положительных чисел и условия деления без остатка.
Описание решения задачи
Создадим массив из целых чисел (p:array [1..n] of integer). Вводим 10 чисел в этот массив. Проверяем положительное число (if p[i]>=0), проверяем деление без остатка (if p[i] mod 3 = 0). Если условия осуществляются, то: kol:=kol+1.
Блок-схема
Текст программы
program lab3;
const n=10;
var
p:array [1..n] of integer;
i:byte;
kol:byte;
begin
writeln('vvedite 10 tselih chisel');
for i:=1 to n do
readln(p[i]);
kol:=0;
for i:=1 to n do
if p[i]>0 then
if p[i] mod 3 = 0 then
kol:=kol+1;
writeln('kolichestvo = ',kol);
readln;
end.
Результат работы программы
