Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
806nikita
03.07.2020 13:49 •
Информатика
Pascal вычислить сумму элементов массива заданной длины(array)
Показать ответ
Ответ:
Criss666
02.10.2020 17:17
Uses Crt;
const
m=1000;
var
a:array[1..m]of integer;
i,s,n:integer;
begin
clrscr;
writeln(' Введите длину массива');
readln(n);
Writeln('Введите массив через пробел');
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
writeln(s);
readkey;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sofochka1309
24.12.2021 12:30
Выполните вычисление по формуле |x|-|y|/1+|xy|. из паскаля...
Nirronua
12.02.2021 16:49
Даны два высказывания: а={число 5 - простое}, в={луна – спутник венеры}. очевидно, что а=1, в=0. сформулируйте на языке высказывания, соответствующие следующим формулам:...
FileoFISH
17.11.2022 03:13
Скорость передачи данных по некоторому каналу связи равна 32 кбит/с.передача текстового файла по этому каналу связи заняла 15с. определите,сколько страниц содержал...
Маргольц
17.11.2022 03:13
Подскажите ,когда началось книгопечатание в европе?...
nnursejt
05.10.2021 01:21
2 Файлы, с какой графикой имеют наименьший размер? 1. Растровой.2. Векторной3. Трёхмерной...
okm616
11.09.2022 09:39
Табиғи сөзіне лексикалық талдау...
lenalorax9093
11.09.2022 09:39
A 1. Берілген нүктеден төбесі ретінде шығатын қанша сәуле болуымүмкін?Беniппе Плотт по отсоmомт тутна...
muriev
11.09.2022 09:39
проведите две пересекающиеся прямые и от их общей точки отложите на этих прямых в четыре равных отрезка. постройте четырёхугольник, соединив последовательно концы этих...
ffbhhb
11.09.2022 09:39
47. Сандардың проценттік қатынасын табыңдар: 1) 5-тің 20-ға; 2) 12-нің 80-ге; 9-дың 30-ға; 15-тің 75-ке; 7-нің 3,5-ке; 8-дің 3,2-ге; 3) 9-дың 20-ға; 13-тің 20-ға; 1,6-ның...
anka110
11.09.2022 09:39
Применение препарата Аgent Orange во время войны во Вьетнаме ухудшило здоровье многих ветеранов, которые обратились в суды с требованием о возмещении вреда. Компании-...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
m=1000;
var
a:array[1..m]of integer;
i,s,n:integer;
begin
clrscr;
writeln(' Введите длину массива');
readln(n);
Writeln('Введите массив через пробел');
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
writeln(s);
readkey;
end.