1. 

   romeo-y-kohiba New Member

   Массив целых чисел 30 элементов. найти количество значения которых больше число А. на паскале

    

   romeo-y-kohiba, 16 фев 2010

   #1
2. 

   Dr. Q New Member

   var
     arr : array [1..30] of integer;
     i, a, c : integer;
   begin
     writeln ('Введите массив');
     for i := 1 to 30 do read (arr);
     writeln ('Введите A');
     read (a);
     c := 0;
     for i := 1 to 30 do
       if arr > a then inc (c);
     writeln (c);
   end.
   

    

   Dr. Q, 16 фев 2010

   #2

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

Пароль:

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

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