Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tanyalaim20061
17.07.2022 06:34 •
Информатика
Вычислить произведение всех элементов одномерного массива в, в котором 20 элементов.
Показать ответ
Ответ:
alinashutkina12345
14.07.2020 19:46
Program pas;
var b:array[1..20] of integer;
i, k: integer;
begin
k:=1;
for i:=1 to 20 do
readln(b[i]);
for i:=1 to 20 do
k:=k*b[i];
writeln(k);
end.
0,0
(0 оценок)
Ответ:
PadhD
14.07.2020 19:46
Const n=20;
var B:array[1..n] of integer;
i,s:integer;
Begin
Randomize;
For i:=1 to n do
Begin
b[i]:=Random(10);
Write(b[i],' ');
end;
s:=1;
For i:=1 to n do
Begin
s:=s*b[i];
end;
writeln;
Writeln('Произведение элементов: ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mbelilovskaa
07.05.2022 04:16
Как называлось письмо двуречья, состоящее из клинообразных значков?...
ЮляLoveYou
16.01.2020 03:21
Что из перечисленного можно делать в word? a) большими информационными массивами; b) автоматически нумеровать страницы; c) использовать абсолютные ссылки; d) строить графики...
Жанниет
05.11.2020 15:43
Перевести сумму, заданную в копейках(k), в рубли (r)...
Shariknt
27.05.2020 13:51
Даны три числа.если среди нет нулей, то вычислить и вывести произведение этих чисел...
omon3565
16.11.2021 11:50
Определите размер описанного ниже массива и тип элементов: а: аrray [-15..6] of real;...
manafin1
17.03.2023 16:02
Применение компьютерных моделей в современном общества (медицина, исследования космоса) ,, примеры....
жанель93
01.03.2022 12:02
Напряжение на контактах принимает значения от 0 до 100 вольт. при дискретизации весь диапазон разбивается на 5 равных интервалов, и измеренное напряжение округляется до...
НаташаБатракова
04.06.2020 19:07
Книга содержит 130 страниц; на каждой странице по -15 строк,в каждой строке -45 символов. рассчитаем объём информации ,содержащийся в книге в мбайтах ....
ANTON5452
04.06.2020 19:07
Вычислить в обратном коде в 8 разрядной сетке сумму двух десятичных чисел 82 и -124. результат представить в 10 системе счисления...
flillen
04.06.2020 19:07
Материальной моделью является: а)анатомический муляж б)карта в)чертеж г)диаграмма...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var b:array[1..20] of integer;
i, k: integer;
begin
k:=1;
for i:=1 to 20 do
readln(b[i]);
for i:=1 to 20 do
k:=k*b[i];
writeln(k);
end.
var B:array[1..n] of integer;
i,s:integer;
Begin
Randomize;
For i:=1 to n do
Begin
b[i]:=Random(10);
Write(b[i],' ');
end;
s:=1;
For i:=1 to n do
Begin
s:=s*b[i];
end;
writeln;
Writeln('Произведение элементов: ',s);
end.