Найти количество чисел последовательности, которые меньше последнего введенного числа

@Анна1997 · Регистрация: 17.08.2013

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

С клавиатуры вводится натуральное число N. Затем вводится последовательность из N двухзначных чисел. Найти количество тех, которые меньше последнего введенного числа.

@ermolay · 20.08.2013, 13:23

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,k: integer;
begin
  write('Ââåäèòå ÷èñëî n. n=');
  readln(n);
  writeln('Ââåäèòå n äâóçíà÷íûõ ÷èñåë:');
  for i:=1 to n do
  begin
    repeat
      write(i,'-å ÷èñëî: ');
      readln(a[i]);
    until abs(a[i]) in [10..99];
  end;
  for i:=1 to n-1 do
    if a[i]<a[n] then inc(k);
  writeln('×èñåë â ïîñëåäîâàòåëüíîñòè, ìåíüøèõ ',a[n],': ',k);
  readln;
end.

Добавлено через 4 минуты
добавил проверку ввода двузначности числа

@Анна1997 2 / 2 / 0 Регистрация: 17.08.2013 Сообщений: 21
		1
	Найти количество чисел последовательности, которые меньше последнего введенного числа 20.08.2013, 13:12. Показов 1832. Ответов 1 Метки нет (Все метки) С клавиатуры вводится натуральное число N. Затем вводится последовательность из N двухзначных чисел. Найти количество тех, которые меньше последнего введенного числа. 0

Опции темы

Найти количество чисел последовательности, которые меньше последнего введенного числа

Решение