arsenal2108
16.03.2020 18:36

15.2 На­пи­ши­те про­грам­му для ре­ше­ния сле­ду­ю­щей за­да­чи. Ка­ме­ра на­блю­де­ния ре­ги­стри­ру­ет в ав­то­ма­ти­че­ском ре­жи­ме ско­рость про­ез­жа­ю­щих мимо неё ав­то­мо­би­лей, округ­ляя зна­че­ния ско­ро­сти до целых чисел. Не­об­хо­ди­мо опре­де­лить:

1) раз­ность мак­си­маль­ной и ми­ни­маль­ной ско­ро­стей ав­то­мо­би­лей;

2) ко­ли­че­ство ав­то­мо­би­лей, ско­рость ко­то­рых не пре­вы­ша­ла 30 км/ч.

Про­грам­ма по­лу­ча­ет на вход число про­ехав­ших ав­то­мо­би­лей N (1 ≤ N ≤ 30), затем ука­зы­ва­ют­ся их ско­ро­сти. Зна­че­ние ско­ро­сти не может быть мень­ше 1 и боль­ше 300. Про­грам­ма долж­на сна­ча­ла вы­ве­сти раз­ность мак­си­маль­ной и ми­ни­маль­ной ско­ро­стей ав­то­мо­би­лей, затем ко­ли­че­ство ав­то­мо­би­лей, ско­рость ко­то­рых не пре­вы­ша­ла 30 км/ч.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
NikNameXxX
06.07.2020 02:00

Объяснение:

program ArrayOf50;

const

   ArraySize = 50; {Определяем размен массива}

   

var

   x: array[1..ArraySize] of integer;

   i, PosCount, NegCount : integer;

   

begin

   PosCount :=0; NegCount :=0; {Устанавливаем счетчики пол. и отр. чисел}

   for i:=1 to ArraySize do begin {Цикл ввода данных}

       Write('Input ', i, '-th element of array: ');

       ReadLn(x[i]);

   end;

   for i:=1 to ArraySize do begin {Цикл обработки данных}

       if x[i] > 0 then PosCount := PosCount+1; {считаем положительные}

       if x[i] < 0 then NegCount := NegCount+1; {считаем отрицательные, нули в расчет не берутся!}

   end;

   Writeln('There are ', PosCount, ' positive numbers.');

   Writeln('This is ', PosCount - NegCount, ' more than negatives');

end.

0,0(0 оценок)
Ответ:
kirilladinov
20.11.2020 00:08

Информация всегда являлась немаловажным фактором общественного развития. С ее человечество концентрировало многовековой опыт жизни прежних поколений. Поговорка «Кто владеет информацией - тот владеет миром» подчёркивает социальную роль информации. Владение информацией открывает новые модели управления, формирует новые социальные структуры общества.

Под влиянием быстро развивающейся системы социальных коммуникаций и информации формируется информационный сектор экономики. Возникает новый капитал - знание. Под воздействием этих процессов меняется характер труда: внедряются безлюдные технологии, т.е. исчезает сам труд в непосредственном производстве, расширяется участие работников в управлении производством.

Информация как орудие продвижения прогрессивных идей всё большей прозрачности границ между странами и народами. Складывается новая система общественного богатства с использованием информационных технологий, где ценятся, прежде всего, умственные человека.

По данным ЮНЕСКО, более половины всего занятого населения наиболее развитых стран прямо или косвенно принимает участие в процессе производства, хранения и распространения информации.

Если до середины ХХ века общество имело ярко выраженный индустриальный характер, то нынешнее его состояние ученые характеризуют как постиндустриальное, рассматривая его в качестве переходного к информационному обществу.

Информационное общество — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшей ее формы — знаний.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота