М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
0Artemka0
0Artemka0
14.05.2020 10:15 •  Информатика

Определить количество элементов массива, принадлежащих промежутку от a до b (значения а и b вводятся с клавиатуры; b> a) паскаль

👇
Ответ:
mishkasega77798
mishkasega77798
14.05.2020
Const n=20;
var x:array[1..n] of integer;
a,b,k,i:integer;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do begin
 x[i]:=random(51);
 write(x[i],' ');
 end;
writeln;
write('a, b (a<b): ');
readln(a,b);
k:=0;
for i:=1 to n do
 if (x[i]>=a)and(x[i]<=b) then k:=k+1;
writeln('k = ',k);
end.

Пример:
Массив:
27 5 38 46 22 2 0 22 17 49 28 30 33 16 6 33 35 33 14 2
a, b (a<b): 10 30
k = 8
4,6(11 оценок)
Открыть все ответы
Ответ:
рамиля28
рамиля28
14.05.2020
Не пойму, где это может понадобиться, но
3762194662274677225006147833619028325244330646204236432925139720030670885330519044445501804761927745268763736929034118016031519410956059710016491867886889157890211484313592791062569915129529790346983079610400317269003975512764853909825684309294001486918614927217865484171497622917064676132001029225523861302285726809602736311578770958185727882065830756366057561021042715214545162477118465368433226000538225835881149829186249682400183653494069108786491864970103748052744856652666373379197565574074550935728305785527534076832933033391949562148135756886265861748671407745362911914163091988879273202451394592768
4,6(4 оценок)
Ответ:
Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.
4,5(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ