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

Составить программу:
Заполнить массив с именем L
Количество элементов 15
Заполнить случайными числами в диапазоне от 0 до 10
Посчитать количество элементов равных 3 или 5
Посчитать сумму индексов элементов, которые не равны 0 и не равны 1
Посчитать произведение элементов, которые меньше 5, но не равны 0

👇
Открыть все ответы
Ответ:
GreenDiamonds
GreenDiamonds
11.10.2022

Человек со дня своего сотворения стремился обустроить свой быт. Технический прогресс даровал нам электричество, тепло, системы вентиляции и кондиционирования, а также теплые полы, системы охраны и т. д.

Сегодня есть возможность объединить все эти блага в систему “умный дом”.

Умный дом - один из продуктов высоких технологий, являвшийся своего рода флагом HI-TECH революции. Если ранее только в  фантастических рассказах герои жили в домах, которые были почти одушевлены и выполняли все приказания хозяев, то в последнее время системы «умный дом» стали появляться и в реальности в распоряжении очень обеспеченных людей. Вначале в США, Японии, а затем и в Европе, России.

Объяснение:

потому что

4,7(81 оценок)
Ответ:
10count
10count
11.10.2022
//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный 
4,6(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ