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

@titova · Регистрация: 28.03.2011

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

2.10. [Pascal | C | Basic] В заданном массиве A(N) определите количество элементов, которые меньше заданного значения.

@MAZUR777 · 29.03.2011, 15:56

2.10

Pascal

program second;
uses crt;
var x,c,n,i:integer;
a:array[1..100] of integer;
begin;
clrscr;
randomize;
write('Введите количество элементов массива');
readln(n);
write('Введите х');
read(x);
for i:= 1 to n do
begin
A[i]:=random(100)-random(100);
end;
c:=0;
for i:= 1 to n do
begin
if a[i]<x then
begin
c:=c+1;
end;
end;
writeln('Наш ответ:',c);
readkey;
end.

@MAZUR777 · 29.03.2011, 15:56

2.10

Pascal

program second;
uses crt;
var x,c,n,i:integer;
a:array[1..100] of integer;
begin;
clrscr;
randomize;
write('Введите количество элементов массива');
readln(n);
write('Введите х');
read(x);
for i:= 1 to n do
begin
A[i]:=random(100)-random(100);
end;
c:=0;
for i:= 1 to n do
begin
if a[i]<x then
begin
c:=c+1;
end;
end;
writeln('Наш ответ:',c);
readkey;
end.

@titova · 29.03.2011, 16:11 **[ТС]**

MAZUR777
спасибо!

@titova · 29.03.2011, 16:11 **[ТС]**

MAZUR777
спасибо!

@titova 3 / 3 / 0 Регистрация: 28.03.2011 Сообщений: 39
		1
	Определить количество элементов, которые меньше заданного значения 29.03.2011, 13:10. Показов 5611. Ответов 4 Метки нет (Все метки) 2.10. [Pascal \| C \| Basic] В заданном массиве A(N) определите количество элементов, которые меньше заданного значения. 0

@titova 3 / 3 / 0 Регистрация: 28.03.2011 Сообщений: 39
	29.03.2011, 16:11 [ТС]	4
	MAZUR777 спасибо! 0

Опции темы