Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ryzhij
13.11.2020 18:20 •
Информатика
Найти номер первого нулевого элемента массива x1, x2, и сумму элементов пришедствующих ему
Показать ответ
Ответ:
Danil1214d
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 оценок)
Популярные вопросы: Информатика
toyzsr
09.09.2022 16:42
7 байтта канша бит бар...
Артем620
20.02.2021 13:53
Кодування по таблиці числа 12...
Бyлaт
17.08.2020 15:06
Практична робота Які три помилки у наступному коді? ( ) x = input( Enter a number: ) if x = 3 print( You entered 3 ) Чого не вистачає в цьому коді? (1б) temperature = float(input(...
romauaparckhome
15.07.2022 21:48
Книга содержит 140 страниц. На каждой странице 35 строк. В каждой строке 56 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним...
карамба111
20.02.2020 12:47
Які з тверджень (А–Г) є істинними? Позначте всі правильні відповіді. (Кількість балів 1.50) А Оператори тіла циклу виконуються доти, поки умова хибна Б Якщо умова набуває значення...
debdh
23.01.2021 21:22
информатика ; тест « информационные ресурсы и сервисы интернета » 1 ) логин — это .. 1. почтовый адрес 2. имя сервера 3. сочетание символов , которое ассоциируется с пользователем...
handaa0615
24.01.2022 04:16
1. Учёные подсчитали количество людей на нашей планете. 1 января 2014 года население Земли достигло семи миллиардов двухсот миллионов (?) человек. 2. Принято считать, что на земном...
zenalubimova
05.06.2022 11:18
ХЕЛП ЯЗЫК ПИТОН Используя полное ветвление, у следующий фрагмент программы: if a b: c = 1 if a b: d = 2 if a = b: c = 3 if a = b: d = 4 3. Имеются данные о количестве полных лет трёх...
bochtorovmaksim
30.01.2021 09:11
Если а - это цена, б - масса, то атрибут с, обозначающий стоимость будет: базовым атрибутом виртуальным атрибутом сложным атрибутом...
Яяяячканр345
09.01.2021 17:41
Вказати правильно записані адреси діапазонів комірок: * АС10—ВС24; Е12;Е25; В23-Р34; A22:B45 2)Вказати в яких комірках записані формули без використання функції * 1 =ЕСЛИ(В1 ВЗ;А1+А2;С1)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.