Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Q3max2011
25.01.2021 10:19 •
Информатика
Создать одномерный массив целых случайных чисел в интервале от -10 до 25 в количестве из 30 элементов. распечатать данный массив, вычислить сумму положительных элементов 2 и 3 массива.
Показать ответ
Ответ:
lunova0921
05.10.2020 16:07
Var
a: array[1..100] of integer;
i, n, sum: integer;
begin
n := 30;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(35) - 10;
write(a[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to n do
if a[i] > 0 then
sum := sum + a[i];
writeln('sum = ', sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ларейн2772
01.05.2021 06:49
Вычислите функцию y 1=√x+10, y 2=√-x+60, при значениях x-6; 1; ...; 57 и постройте сравнительную диаграмму значений функций 1y и y2....
gore489
17.07.2020 03:32
ИКТ 1. Почему мы записываем видеозаписи? 2. Для чего необходимо установить на компьютер программу VideoPad?...
vitalesss
04.02.2021 04:10
Что такое Программное обеспечение. Какие бывают типы Программного обеспеченияПриведите примеры системного ПОПриведите примеры Прикладного ПОПриведите примеры Систем программирования...
Faop
16.12.2021 18:26
Запись Повтори k раз Команда1 Команда2 КомандаЗ Конец означает, что последовательность команд Команда1 Команда2 КомандаЗ повторится k раз. Чертёжнику был дан для исполнения...
khubulovaliza
30.06.2022 15:56
Наведіть приклади використання людиною тіонових бактерій і залізобактерій. Намалюйте схему кругообігу Нітрогену в природі....
milanademidova1
16.11.2021 21:19
Прочитайте фрагмент.Название какого цветка скрывается за многоточием?Кто автор и как называется произведение?Как вы понимаете заглавие произведения и его многозначность?...
Pavel1810
13.04.2020 19:06
Из кабины башенного крана находящейся на высоте 120 м упала ( нарушение правил ОТ) упаковка с бутербродом. Рассчитайте скорость, которую приобретет упаковка, падающая вертикально...
Dfh32
07.11.2021 00:03
Написать эссе почему так вожна роль лимфатической системы в жизнедеятельности человека ...
arhivnaykr
30.05.2021 19:55
выбрать правильный ответ...
vikaos01Vi
30.05.2021 19:55
Задача 2 Неразветвленная цепь переменного тока, показанная на соответствующем рисунке, содержит активные и реактивные сопротивления, величины которых за-даны в таблице 2....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..100] of integer;
i, n, sum: integer;
begin
n := 30;
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(35) - 10;
write(a[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to n do
if a[i] > 0 then
sum := sum + a[i];
writeln('sum = ', sum);
end.