Ответы на вопрос:
program xxx; var b, c : array [1..15] of integer; i, s, a : integer;
begin//подключаем датчик случайных чисел randomize; //цикл заполняющий массивы for i: =1 to 15 do begin b[i]: =random(100); c[i]: =(b[i] + i); end; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 do begin write(b[i],' ') end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 do begin write(c[i],' ') end; writeln('');
//вводим число аwrite('введите число а=');
readln(a);
//формируем 3-ий массив и находим сумму эоементов меньших а
s: =0; for i: =1 to 15 do if c[i]< a then begin c[i]: =c[i]* 2; s: =s+c[i]; end;
//выводим на экран 3-ий массивwrite('третий массив: '); for i: =1 to 15 do begin write(c[i],' ') end; writeln('');
writeln('сумма элементов меньших а=', s);
readlnend.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
WWW2017WWW13.08.2020 04:42
-
Mariyam00522.08.2021 14:00
-
096725225031.08.2020 04:20
-
nlimel22.11.2020 02:15
-
Jastmine4216.09.2020 21:55
-
даная723459802.03.2020 06:06
-
tysa13312.01.2020 05:00
-
DetasGames24.09.2020 03:21
-
ник482415.04.2021 20:57
-
chelovekchelovekov9923.03.2023 23:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.