Найти количество чисел в массиве, меньше заданного числа y.

@Ground_X · Регистрация: 21.12.2016

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

Найти количество чисел в массиве, меньше заданного числа y. Если таких чисел нет, то вывести сообщение об этом.

@Hitoku · 30.03.2017, 09:57

Pascal

const n=20;
var a:array[1..n] of integer;
    y,i,k:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(11); write(a[i],' ');
  end; writeln;
  write('Y = '); readln(y); k:=0;
  for i:=1 to n do
    if a[i]<y then inc(k);
  if k>0 then write(k) else write('Таких чисел нет');
end.

@Ground_X 0 / 0 / 0 Регистрация: 21.12.2016 Сообщений: 42
		1
	Найти количество чисел в массиве, меньше заданного числа y. 30.03.2017, 09:45. Показов 2123. Ответов 1 Метки нет (Все метки) Найти количество чисел в массиве, меньше заданного числа y. Если таких чисел нет, то вывести сообщение об этом. 0

Опции темы

Найти количество чисел в массиве, меньше заданного числа y.

Решение