Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
PauD
19.03.2022 02:20 •
Информатика
Водномерном массиве состоящем из 10 целых элементов в интервале от -20 до 20 вычислить произведение положительных элементов
Показать ответ
Ответ:
bettycooper
09.10.2020 23:15
Const
N = 10;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i]>0 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.
как лучший
0,0
(0 оценок)
Популярные вопросы: Информатика
ulzhalgasamangEldy
05.08.2020 02:01
Дана таблица. Запиши правильный ответ. Название модуля PC2−5600 Пропускная модулей памяти Гбит/с ?...
221967
02.12.2022 10:14
Выберите функции операционной системы посогитеее у меня СОЧ...
osipovvlavlad
31.07.2020 03:39
E/14.12.2020/lesson/a21a6226-431c-44d1-bba3-31267640692с ТЕКСТ ЗАДАНИЯВыберите фигуры, которые были использованы при создании данного изображения....
крик56
08.08.2020 13:45
Определите инструменты, которые относятся к инструментам рисования: ( по за 2 верно указанных инструмента) ЛинияСдвигОт рукиЛупаДугаКругОпределите инструменты редактирования:...
Smitanka228
26.02.2023 22:16
1. Какие операции с фигурами можно выполнять и Inkscape? Выберите по крайней мере один ответ:а. Изменять размер объектатb, Перемещать объектс. Поворачивать объектd, Перскашивать...
preblaging
12.10.2020 17:52
Напишите порядок действий для вставки междустрочных интервалов со значение 1,5 см....
dschunchewa2013
20.12.2022 12:59
Дан фрагмент электронной таблицы В ячейку С3 введена формула =$D$1*(A3- B3). Формула была скопирована в ячейки С4, С5 и С6. СОР...
Olesya15551
12.04.2021 02:31
Viror ypoka аПовернуть на 90 градусов влевоОтразить по горизонталиОтразить слева на правоу)Повернуть на 90 градусов вправоОтразить по вертикалио o10052024632545...
кгшкванек1991
26.12.2021 01:00
3. Запишите 2 причины, почему на компьютер(ноутбук, ультрабук) нужно устанавливать лицензионное программное обеспечение....
2017mariana
03.04.2023 20:40
Установите соответствие вида компьютерной графики с примером Ние урокаNo 1No2No3No4ФрактальнаяNo5No6- No7урокаВекторная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 10;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i]>0 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.
как лучший