Задано последовательность с N чисел: a(1), a(2), a(3), ... ,a(N). Найти количество чисел, которые лежат на отрезку [a,b].

@Olezhka · Регистрация: 16.10.2010

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

Помогите плз, я еще не очень подружился с массивами, не знаю как сделать эту задачу. На завтра нужно преподу показать и рассказать ход ее выполнения. Помогите пожалуйста.

Задано последовательность с N чисел: a(1), a(2), a(3), ... ,a(N). Найти количество чисел, которые лежат на отрезку [a,b].

@SuPeR XaKer · 04.11.2010, 11:08

Pascal

Uses
 CRT;
Var
 mas:array[1..20] of integer;
 i,n,kol,a,b:integer;
begin
ClrScr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
write('Ââåäèòå äèàïàçîí (A äî B): ');
readln(a,b);
randomize;
kol:=0;
for i:=1 to n do
begin
mas[i]:=random(10)-3;
write(mas[i]:3);
if (mas[i]>=a) and (mas[i]<=b) then
begin
inc(kol);
write(mas[i]:3);
end;
end;
writeln;
writeln('Kol:=',kol);
readkey
end.

@Olezhka · 05.11.2010, 00:24 **[ТС]**

спасибо большое

Добавлено через 11 часов 51 минуту
скажите еще плз что такое randomize?

@SuPeR XaKer · 05.11.2010, 00:25

http://www.pascal.helpov.net/index/pascal_Random

@pryda · 05.11.2010, 00:35

Не по теме:

SuPeR XaKer, если уж даешь конкретную размерность массиву, то ненужно просить её вводить. ну введет он 35 и стонать будет, что не работает...

@Olezhka · 05.11.2010, 00:35 **[ТС]**

а, это случайное заполнение массива?

и еще не могу понять этот момент (
mas[i]:=random(10)-3;

@SuPeR XaKer · 05.11.2010, 00:37

SuPeR XaKer, если уж даешь конкретную размерность массиву, то ненужно просить её вводить. ну введет он 35 и стонать будет, что не работает...

Не по теме:

что то я в ваших программах этого не заметил.
Эх всётаки жаль нет смайла сарказм.

@pryda · 05.11.2010, 00:39

Не по теме:

Сообщение от SuPeR XaKer

что то я в ваших программах этого не заметил.

а ну ка кинь ссылочку, а то склероз одолел

@SuPeR XaKer · 05.11.2010, 00:53

а ну ка кинь ссылочку, а то склероз одолел

полазил и понял что вы вообще размерность в программах не задавали.

сразу ограничивали.
Но смайлик всё равно бы не помешал

@Olezhka 8 / 8 / 1 Регистрация: 16.10.2010 Сообщений: 77
		1
	Задано последовательность с N чисел: a(1), a(2), a(3), ... ,a(N). Найти количество чисел, которые лежат на отрезку [a,b]. 04.11.2010, 09:36. Показов 1261. Ответов 8 Метки нет (Все метки) Помогите плз, я еще не очень подружился с массивами, не знаю как сделать эту задачу. На завтра нужно преподу показать и рассказать ход ее выполнения. Помогите пожалуйста. Задано последовательность с N чисел: a(1), a(2), a(3), ... ,a(N). Найти количество чисел, которые лежат на отрезку [a,b]. 0

@Olezhka 8 / 8 / 1 Регистрация: 16.10.2010 Сообщений: 77
	05.11.2010, 00:24 [ТС]	3
	спасибо большое Добавлено через 11 часов 51 минуту скажите еще плз что такое randomize? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.11.2010, 00:25	4
	http://www.pascal.helpov.net/index/pascal_Random 1

@pryda
	05.11.2010, 00:35 #5
	Не по теме: SuPeR XaKer, если уж даешь конкретную размерность массиву, то ненужно просить её вводить. ну введет он 35 и стонать будет, что не работает... 0

@Olezhka 8 / 8 / 1 Регистрация: 16.10.2010 Сообщений: 77
	05.11.2010, 00:35 [ТС]	6
	а, это случайное заполнение массива? и еще не могу понять этот момент ( mas[i]:=random(10)-3; 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.11.2010, 00:37	7
	SuPeR XaKer, если уж даешь конкретную размерность массиву, то ненужно просить её вводить. ну введет он 35 и стонать будет, что не работает... Не по теме: что то я в ваших программах этого не заметил. Эх всётаки жаль нет смайла сарказм. 0

@pryda
	05.11.2010, 00:39 #8
	Не по теме: Сообщение от SuPeR XaKer что то я в ваших программах этого не заметил. а ну ка кинь ссылочку, а то склероз одолел 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.11.2010, 00:53	9
	а ну ка кинь ссылочку, а то склероз одолел полазил и понял что вы вообще размерность в программах не задавали. сразу ограничивали. Но смайлик всё равно бы не помешал Изображения 0