Предмет: Информатика, автор: sabelina03

Напишите программу которая определяет кол-во чисел кратных 3 в n последовательности чисел введенных с клавиатуру. Сделать через массив , Помогите!!!

Ответы

Автор ответа: sillyjoker29
0
const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
Похожие вопросы
Предмет: Химия, автор: ularbek897
Предмет: Математика, автор: musicanAaAnGeL0k
Предмет: Математика, автор: 4501319