Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Alena201859
29.08.2021 17:21 •
Информатика
Найти номер первого нулевого элемента массива x1, x2, и сумму элементов пришедствующих ему
Показать ответ
Ответ:
daa86
02.07.2020 22:39
Var X: array [1..20] of integer;
i, sum : integer;
BEGIN
for i:=1 to 25 do
read(X[i]);
sum:=0;
i:=1;
while X[i]<>0 do begin
sum:=sum+X[i];
i:=i+1;
end;
writeln('Первый нулевой элемент ', i);
writeln('Сумма элементов до нулевого ', sum);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nik93700
08.12.2020 05:52
Если вику, соню, борю, дениса и аллу упорядочить по возрасту, то разница между соседями составит 1 год. вике 10 лет. вика младше сони, но старше аллы. разница в возрасте между...
electreheart
21.02.2022 01:48
Как вывести елементи в обратном порядке ? ( программирование pascalabc.net)...
mehili
23.10.2021 15:05
Информатика 10 класс1.какие числа записаны верно в натуральной естественной форме ? 2.записать числа в полуагрифмитической форме(с использованием символа е)3.какие числа записаны...
Мария12Мария12
26.01.2020 23:08
Таблицу истиности для первого сверху ! ...
stik6
14.12.2020 11:32
с информатикой умоляюРешите первые 5...
Анна5454554
05.02.2021 11:32
Целочисленным переменным a, b, c надо присвоить соответственно значения 10, 20 и 30. Какой оператор ввода соответствует входному потоку...
gavronovaanna2oz9c0h
21.03.2022 04:08
Паскаль составить программу вычисления. Все 3 задания...
blin42p00v7h
22.04.2020 03:47
1.как заряжены электроны,ядро? 2.как определяются заряд ядра атома и число электронов,вращающихся вокруг ядра? 3.дайте определение следующих понятий: электронное облако,энергетический...
yl800845
22.04.2020 03:47
Спишите пословицы о языке, объясните их значение. лучше запнуться ногою, чем языком. хорошее слово - половина дела. красно поле пшеном, а речь - слушаньем. дорога ложка к обеду,...
alesqwer
22.04.2020 03:47
15 предложений из художественной членами предложения 35...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, sum : integer;
BEGIN
for i:=1 to 25 do
read(X[i]);
sum:=0;
i:=1;
while X[i]<>0 do begin
sum:=sum+X[i];
i:=i+1;
end;
writeln('Первый нулевой элемент ', i);
writeln('Сумма элементов до нулевого ', sum);
END.