1. 

   Boozy_Woozy New Member

   Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество элементов больших числа 10 и кратных3

    

   Boozy_Woozy, 11 янв 2010

   #1
2. 

   VANUr New Member

   Program Pr1;
   uses crt;
   var mas:array[1..100] of integer;
   i,a:integer;
   Begin
   clrscr;
   a:=0;
   for i:=1 to 100 do begin
   read(mas);
   if (mas>100) and (mas mod 3=0) then a:=a+1;
   end;
   writeln(a);
   end.
   

    

   VANUr, 11 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня