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

@Алексей) · Регистрация: 28.11.2011

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

№1. Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.

Pascal

program Chis;
var N:real;
i,k:integer;
A:array[0..16] of real;
begin
writeln('Vvedite granichnoye chislo-->');
readln(N);
k:=0;
for i:=1 to 15 do
 begin
writeln('Vvedite chislo-->');
readln(A[i]);
if A[i]<N then k:=k+1;
 end;
writeln('Kolichestvo-->',k);
end.

@Steacher · 13.12.2011, 21:00

Pascal

var n,c,b,i:integer;
begin
c:=0;
writeln('Введите число N5');
readln(n);
for i:=1 to 15 do
  begin
  readln(b);
  if b<n then c:=c+1;
  end;
writeln('чисел больше заданого ',c);
end.

@Own3D · 13.12.2011, 21:10

Pascal

uses crt;
const
     count=15;
var
   a,n:real;
   i,k:integer;
begin
write('Введите n:');
readln(n);
i:=1;
k:=0;
while i<=count do
      begin
      write('Введите ',i,' число:');
      readln(a);
      i:=i+1;
                if a<n then
                k:=k+1;
      end;
write('Чисел меньше n:',k);
end.

Опции темы