Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
настя7603
03.10.2020 14:06 •
Информатика
Составить блок схему и программу . сформировать одномерный массив из промежутка -40; 10 найти сумму !
Показать ответ
Ответ:
mika183
03.10.2020 15:35
Var
a: array[1..100] of integer;
i, n, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
a[i] := Random(50) - 40;
write(a[i], ' ');
s := s + a[i];
end;
writeln;
writeln('s = ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kobelevmiklip08h5g
02.01.2022 13:37
Нач сместиться в точку (1, 1) нц 3 раз опустить перо сместиться на вектор (1, 3) сместиться на вектор (1, -3) сместиться на вектор (-2, 0) поднять перо сместиться на вектор (3, 0)...
gehegeghegge
26.04.2020 04:57
Исправьте ошибки. найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами (паскаль) var i,n,i1,i2: longint; a: array[1..100]...
Slaeran
01.11.2020 16:50
Сформулируйте сложные запросы, состоящие из нескольких ключевых слов, используя язык запросов системы янд.екс, и осуществляющие поиск российских компаний в области: мультимедиа, телекоммуникаций,...
Tkaiem
13.06.2020 18:13
P=A^-B +(-A + -B) +(-A^ B) решить......
punchplz
19.07.2021 03:19
домашнее задание Составьте формулы задания по таблице также используя данную мальчиках которые изображены на нижеследующем рисунке Впишите формулу в ячейку проверьте задание на строках...
всмпасы
16.03.2023 11:26
Что значит сформулировать форму признака в блок-схеме...
IgrochishkaRossiy
20.02.2021 22:47
Үй тапсырмасыN натурал сан берілген. Көбейтіндінің алгоритмін есеп-теп, құрастырыңдар:...
vladimlr
15.02.2023 06:45
1. при угадывании целого числа в некотором диапазоне было получено 8 бит информации. сколько чисел содержит этот диапазон? 2. вы подошли к светофору, когда горел красный свет. после...
ксю878
30.04.2023 14:56
Задание. Ото Фон Бисмарк ( Расскажите про эту выдающуюся личность). – 3 предложения. (парграграф 17 страница 92-93) 1. Предложение – Кем был ?2. С каким государством связана его личность?3....
Aaaalisa
30.05.2023 14:54
Познач рядок із дієприслівниками у формі доконаного виду минулого часу ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..100] of integer;
i, n, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
a[i] := Random(50) - 40;
write(a[i], ' ');
s := s + a[i];
end;
writeln;
writeln('s = ', s);
end.