Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alexaaa2
27.08.2020 16:00 •
Информатика
Дан массив из 10 целых чисел определите произведение положительных элементов массива
Показать ответ
Ответ:
МаксимаДолгун02
02.10.2020 14:39
Задача выполнена на языке Pascal;
Var
i: integer;
w: real;
mas: array[1..10] of integer;
Begin
w:= 1;
For i:=1 to 10 do
Begin
if mas[i] > 0 then w:= w * mas[i];
End;
Writeln (mas);
End;
0,0
(0 оценок)
Популярные вопросы: Информатика
111122223
26.09.2022 01:42
Определи количество информации в книге,набранной на компьютере.книга содержит 1500 страниц.на каждой странице-40строк,в каждой строке-60 символов.запиши ответ в наиболее подходящих...
Аdrian
24.01.2023 19:04
Сколько битов в слове графопостроитель?...
Лизззззззаааааа
09.11.2021 17:21
Створіть проект, у якому можна обчислити суму, різницю, добуток, частку від ділення двох довільних дійсних чисел залежно від установлених позначок прапорців. Збережіть проект у папці...
Анимешник9595
19.08.2020 10:14
Використати random.randint Модуль random надає функції для генерації випадкових чисел, букв, випадкового вибору елементів послідовності.random.randint (A, B) - випадкове ціле число...
daramarkel
04.12.2021 13:09
Представьте целое число со знаком в формате с фиксированной запятой (ФЗ) (-238) в десятичной СС...
ЭЩЩКЕРЕЕЕ
12.12.2020 18:09
ів Написати програму: Задано масив з n цілих чисел. Вивести його елементи в стовпчик, не змі- нюючи початковий порядок....
нурана4
20.06.2021 03:26
решить : ) АЛГОРИТМЫ ОПИСАНИЯ. ТИПИЧНЫЕ СХЕМЫ ОБРАБОТКИ ДАННЫХ...
pollyj
23.01.2022 21:45
Чем отличаются операции Вырезать и Вставить в Excel от аналогичных операций в Word?...
Lolololololololol4
12.03.2023 19:21
De la tastatură se citeşte două numere întregi diferite de zero şi una din operaţiile aritmetice +,-, *, /. Dacă a fost introdus semnul ‚+’, să se calculeze sumanumerelor, dacă a fost...
Soos2009
16.01.2021 14:15
Вводится последовательность целых чисел. Ноль – признак конца. Требуется вывести максимальное из произведений двух элементов последовательности, которое делится на 15. Множители,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
i: integer;
w: real;
mas: array[1..10] of integer;
Begin
w:= 1;
For i:=1 to 10 do
Begin
if mas[i] > 0 then w:= w * mas[i];
End;
Writeln (mas);
End;