Войти Регистрация Спроси ai-bota

Program mas; uses crt; var b: array [1..9] of integer; i: integer; begin clrscr; randomize; for i: =1 to 9 do if ((i mod 2)=0) then b(i): =0 else b(i): =random(100)-100; end. постройте блок-схему. !

Ответ:

Guwanc98

08.07.2020 08:04

Program mas; uses crt; var b: array [1..9] of integer; i: integer; begin clrscr; randomize; for i: =

0,0(0 оценок)

Популярные вопросы: Информатика

Птичка04

13.11.2021 20:13

Сколько школьных учебников ёмкостью 350 кб может разместиться на дискете 1,38 мб...

VladimirLoll

07.12.2020 06:37

Що можно створюваты за до комп ютернои графики...

kataefimova

19.04.2020 14:22

Задание 2 1. Добавь к блоку Старт блок Независимое управление мото-рами.2. Измени показатели блока Независимое управление мото-рами на в20] и С[120].3. Добавь блок Ожидание...

alina1749

22.10.2022 07:11

Как делать то до 07.02.2021...

Vika7791532

04.10.2022 09:47

1.Сколько сумматоров необходимо для выполнения суммы двух целых чисел? (3 и 1 полусумматор) 2.Изобразите схему работы 4-разрядного сумматора, 3.Опред. елите, какие значения...

Mihailevscaeanica

03.02.2023 02:51

Выполнить (записать таблицу с решение м в тетрадь): В одной деревне живут три школьника: Саша, Коля и Петя. Они осваивают сельскохозяйственные профессии. Один из них...

danila110420051

13.04.2020 01:49

Запишите число, которое будет напечатано в результате выполнения фрагмента программы: i = 1 print ( 9 , end= ) while i 3: print ( i, end= ) i += 1...

Chevalier26

21.06.2021 08:23

Даны два вещественных числа a и b, если сумма этих чисел больше 35, то увеличить их в 4 раза иначе уменьшить в 2 раза. Программа паскаль...

клэш4

12.10.2021 10:24

1.напишите наибольшее число x для которого истино высказывание:(x 44)И НЕ(сумма цифр числа x меньше 8)2.напишите наибольшее число x для которого истинно высказывание:НЕ(x...

Kuznecovanaste

15.05.2020 20:44

Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите минимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку