Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ladhice
31.05.2023 07:40 •
Информатика
Написать пограмму,которая сначала должна обеспечть ввод 5 чисел в одномернй массив ,зтем выселить их сумму и вывести ее на экран
Показать ответ
Ответ:
doc2510
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 оценок)
Популярные вопросы: Информатика
ritakosyanenko
15.09.2022 21:51
Превратите этот код в пароль(из английских букв) 1427292798142729262514272999964843999558596589674374475629335161818756554828424398529942547499964389496661899084958191946443652433...
sumochkaaaaa
27.05.2023 05:24
Нужно составить программу с repeat,определяющую максимальное из всех введённых вами чисел.(пусть признаком конца ввода чисел является введённое число 0)....
дарий833
15.05.2023 00:02
Записать в паскале : корень из х^2 + корень из(x +y^3)...
19942424
10.01.2022 14:19
Скласти програму обчислення добутку двох чисел, які вводяться з клавіатури...
dilnaramusaeva
10.01.2022 14:19
Складіть програму обчислення добутку суми двох чисел,введених з клавіатури, та константи a=...
vinney
12.08.2021 08:39
Запишите два известных вам факта, относящихсяк событиям...
missm0541
12.08.2021 08:39
Запишите два известных вам факта, относящихся к свойствам объектов. запиши два изестных вам факта, относящихся к зависимостям между объектами....
Sezimturatbeko
30.11.2020 08:42
11001101 11100101 11110010 00100000 11110101 11110011 11100100 11100000 00100000 11100001 11100101 11100111 00100000 11100100 11101110 11100001 11110000 11100000 00101110 перевести...
Black219911
26.11.2022 16:44
Запишите основные правила оформления таблиц....
frausadykova20
26.11.2022 16:44
100+9400=11900+600= 300*(16*12)-7099= 1000-700*50: 1000= 190*5: 10+11005= 3187+19449+520= 12998+(4007-3739)*3 *-это умножит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.