Информатика, опубликовано 2018-08-22 20:42:24 by Гость
Дан целочисленный массив в размере 20 элементов. Составить программу на Паскале. Посчитать кол-во элементов кратных трём.B{1.....20}
Ответ оставил Гость
Const n=20;
var
a:array [1..n] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i] mod 3=0 then
k:=k+1;
end;
writeln(k);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на