Дан массив [1..n] и число m. Найдите количество частей больше числа

Дан массив [1..n] и число m. Найдите количество частей больше числа l

Задать свой вопрос
Любовь Шурмиль
Число l вводится?
Василиса Шоробура
А сообразил, больше числа m?
1 ответ
Var
  m,n,k,i:integer;
  a:array[1..1000] of integer;
begin
 write('Write size array: '); readln(n);
 write('Write m: '); readln(m);
 k:=0;
 for i:=1 to n do
  begin
   read(a[i]);
   if a[i]gt;m
    then inc(k);
  end;
 writeln(k);
 readln;
 readln
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт