Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Samuel11
13.06.2021 02:43 •
Информатика
Написать пограмму,которая сначала должна обеспечть ввод 5 чисел в одномернй массив ,зтем выселить их сумму и вывести ее на экран
Показать ответ
Ответ:
викуха307
20.07.2020 09:55
Var i,sum:integer;
a:array[1..5] of integer;
begin
writeln('Введите числа');
for i:=1 to 5 do
begin
write('a[',i,']= ');
read(a[i]);
sum:=sum+a[i];
end;
writeln('Сумма элементов массива равна ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ДарьяГарушева11
24.01.2021 08:21
Играют в игру на отгадывание числа.правила такие-ведущий загадывет число не больше 1000 остальные по очереди говорят любое число и какое минимальное количество вопросов должны задать...
Aliya205
22.02.2020 22:41
За контрольную работу по информатике получено 6-пятёрок, 15-четвёрок, 8-троек и 1 двойка. какое количество информации в сообщении о том, что иванов получил четвёрку?...
tatite15
06.03.2023 21:24
фон дегеніміз не жəне оның қою командалары? ...
zwitterlord2
05.02.2023 02:44
Найти значение выражения 759 270: 30-26*188: (122-114)...
Наталья999111
19.05.2023 16:52
:найти смежные углы если - 1) угол 1 в 3 раза больше угла 2; 2) угол 2 на 30° меньше угла 1; 3) угол 1 относится к углу 2 как 4 к 11...
marchaika2014
27.01.2022 00:18
Составьте из трёх функций или их графиков так, чтобы две функции обладали каким-то общим свойством, а третья функция этим свойством не обладала. запишите и вопрос к нему....
Сергій098765
19.05.2023 16:52
Петя записал на доске число 2018. затем он сложил цифры записанного на доске числа и умножил полученную сумму на 9. результат записал на доске вместо предыдущего числа, записанного...
pak2005
02.03.2021 18:33
Списать, объяснить выбор написания: 1) мальчик говорил (не)громко. 2) после (не)скольких дней (не)настья установилась солнечная и теплая погода. 3) (не я и сотни шагов, как деревья...
korekhova1986super
14.05.2021 01:47
Условия возникновения и реакций. значение и реакций ...
lilo52
26.08.2022 07:59
70 переведите целые числа из десятичной системы счисления в восьмеричную 1. 192 2. 300 3. 678 4. 2018 переведите целые числа из десятичной системы счисления в шестнадцатеричную...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..5] of integer;
begin
writeln('Введите числа');
for i:=1 to 5 do
begin
write('a[',i,']= ');
read(a[i]);
sum:=sum+a[i];
end;
writeln('Сумма элементов массива равна ',sum);
end.