Вопрос по информатике:
В массиве чисел с1, с2, …, с40 найти количество чисел, попавших в интервал [а, в](PASCAL)
Пожаловаться
- 27.10.2017 10:05
- Информатика
- remove_red_eye 4017
- thumb_up 39
Ответы и объяснения 1
Const n=40;
var c:array[1..n] of integer;
a,b,i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
c[i]:=random(51);
write(c[i]:4);
end;
writeln;
write('a = '); readln(a);
write('b = '); readln(b);
s:=0; k:=0;
for i:=1 to n do
if (c[i]>=a)and(c[i]<=b) then k:=k+1;
writeln('k = ',k);
end.
Пример (для n=10):
21 9 39 45 36 35 39 7 23 5
a = 20
b = 30
k = 2
var c:array[1..n] of integer;
a,b,i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
c[i]:=random(51);
write(c[i]:4);
end;
writeln;
write('a = '); readln(a);
write('b = '); readln(b);
s:=0; k:=0;
for i:=1 to n do
if (c[i]>=a)and(c[i]<=b) then k:=k+1;
writeln('k = ',k);
end.
Пример (для n=10):
21 9 39 45 36 35 39 7 23 5
a = 20
b = 30
k = 2
Пожаловаться
- 28.10.2017 16:58
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы