Сформировать массив из случайных целых чисел из промежутка от -3 до 3 элементы массива вывести в строчку
207
491
Ответы на вопрос:
Var i: integer; a: array[1..10] of integer; begin randomize; for i: =1 to 10 do a[ i ]: =random(100); end. только не понял - ввод с клавиатуры или заполнить случайными числами?
Алг нач цел число, цифра, сумма_цифр, произведение_цифр число : = 0 нц пока число < 1000 или число > 9999 ввод число кц сумма_цифр : = 0 произведение_цифр : = 1 нц пока число > 0 цифра : = mod(число, 10) сумма_цифр : = сумма_цифр + цифра произведение_цифр : = произведение_цифр * цифра число : = int(число / 10) кц вывод сумма_цифр вывод произведение_цифр кон
Популярно: Информатика
-
AceAlone26.06.2022 17:50
-
knowwhatsorry10405.08.2021 10:07
-
Руфина15722.04.2023 06:51
-
Retyyyghiop06.03.2022 00:49
-
Alica265311.04.2022 09:39
-
MeucaH123aksi07.01.2021 18:35
-
данил123475888808.12.2022 13:33
-
dasha5005209.09.2020 18:37
-
suslenok9102.06.2023 04:07
-
sneginka200317.11.2022 21:55