Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
madina319
18.07.2022 14:45 •
Информатика
Напишите программу, которая заполняет массив из 16 элементов случайными числами на отрезке [-4; 4] находит произведение ненулевых элементов. 50 !
Показать ответ
Ответ:
зарина67489
26.08.2020 23:38
Program fpro;
var
a : array[1..16] of integer;
i,p : integer;
begin
randomize;
p:=1;
for i :=1 to 16 do begin
a[i] := random(-4,4);
if (a[i] <> 0) then p:=p* a[i];
write(a[i]+' ');
end;
writeln();
write('Произведение = ', p);
end.
0,0
(0 оценок)
Ответ:
nikita22o
26.08.2020 23:38
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(16,-4,4); a.Println;
a.Where(t->t<>0).Aggregate(1,(i,j)->i*j).Println
end.
Пример
-2 -1 1 -3 -2 2 0 -4 0 2 4 -2 -4 4 3 -1
73728
0,0
(0 оценок)
Популярные вопросы: Информатика
letych
28.07.2020 21:31
PYTHON «B»: Ввести с клавиатуры символьную строку и определить, сколько в ней слов. Словом считается последовательности непробельных символов, отделенная с двух сторон пробелами...
Лидуня270516
06.04.2020 20:56
PYTHON «A»: Ввести с клавиатуры символьную строку и заменить вней все буквы «а» на «б» и все буквы «б» на «а»(заглавные на заглавные, строчные на строчные).Пример:Введите строку:ааббААББРезультат:ббааББААДелать...
Krolya1999
06.12.2021 05:48
Во Какая концепция лежит в основе информационной системы? 1. Концепция базы данных 2. Концепция совокупности знаний 3. Концепция сети...
egorkian
21.02.2020 13:28
Презентация – это… 1. Графический документ, имеющий расширение .txt или .pcx 2. Набор картинок-слайдов на определенную тему, имеющий расширение .ppt 3. Инструмент, который позволяет...
Top4ik80
18.05.2020 01:25
Напишите код на c. вычислить площадь треугольника по трем сторонам – a, b, c. длины сторон ввести с клавиатуры....
Sofochka1309
01.01.2020 04:58
Меры информации в информатике? ...
Kairas
22.02.2021 20:42
Как с анимации можно перемещать изображение в указанном направлении...
Shagovikova08
21.06.2022 12:17
Укажите верное высказывание. 1. Глаголы в условном наклонении в предложении выполняют функцию сказуемого, частица бы (б) при этом не входит в состав сказуемого. 2. В разговорной...
Katruna24
02.03.2021 12:52
Анализ произведения Лилькьна война ...
Белова1234567890
03.03.2022 22:41
составить характеристику Лукерьи, отметить основные черты: умение радоваться и побеждать боль, благодарность и сострадательность(все из текста привести цитаты)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a : array[1..16] of integer;
i,p : integer;
begin
randomize;
p:=1;
for i :=1 to 16 do begin
a[i] := random(-4,4);
if (a[i] <> 0) then p:=p* a[i];
write(a[i]+' ');
end;
writeln();
write('Произведение = ', p);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(16,-4,4); a.Println;
a.Where(t->t<>0).Aggregate(1,(i,j)->i*j).Println
end.
Пример
-2 -1 1 -3 -2 2 0 -4 0 2 4 -2 -4 4 3 -1
73728