сколько элементов в массиве делятся на 3

@ksss · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

ввести массив из 8 чисел подсчитать сколько элементов в массиве делятся на 3

Комментарий администратора

Не надо спама. Если ты его не сам добавляешь, то проверь компьютер на вирусы.

@SuPeR XaKer · 24.12.2010, 19:33

Pascal

kol:=0;
for i:=1 to n do
if a[i] mod 3=0 then
inc(kol);

@Jazon_deenAlt · 24.12.2010, 19:46

Pascal

uses crt;
var
a:array[1..8] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 8 do begin
   writeln('vvedite ',i,'-ij element');
   readln(a[i]);
   if a[i] mod 3=0 then k:=k+1;
end;
writeln('takih elementov ',k);
readln;
end.

@ComiX · 24.12.2010, 23:32

а схему мона?

@ComiX 0 / 0 / 0 Регистрация: 01.10.2010 Сообщений: 29
	24.12.2010, 23:32	4
	а схему мона? 0

Опции темы