Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
УмныйАутист
18.04.2021 20:42 •
Информатика
Дан массив целых чисел. найти номера элементов, окан чивающихся цифрой 0 (известно, что такие элементы в мас сиве есть) в паскале
Показать ответ
Ответ:
Udnyoj
02.07.2020 23:53
Var
mas:array[1..100] of integer;
i,n:integer;
begin
readln(n);
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if mas[i] mod 10 = 0 then
write(i,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
JULIYAc
22.02.2022 19:02
что тут надо переделать. Program Z2; Var a,b,с:integer; Begin Readln (a,b,c); If a =b+c then Writeln (‘Нет’) Else if b =a+с then Writeln (‘Нет’) Else if c =a+b then Writeln (‘Нет’)...
Топовая20171
14.03.2021 21:43
Написать структурированную программу и доказать ее правильность по определению семантики структурированных программ. Проверить, можно ли в пятеричную запись числа х вставить цифру...
ваня1340
26.03.2022 14:51
Пожайлуста информатика7 класс Обобщение и систематизация основных понятий темы «Обработка текстовой информации».В одной из кодировок Unicode на каждый символ отводится 16 битов....
Усенька
23.02.2023 23:37
3. Приведены за к поисковому серверу. Для каждого за указан его код - соответствующая буква от А до Г. Расположите коды за слева направо в порядке возрастания количества страниц,...
bolshakova2014
11.04.2020 08:07
1)Дан цикл: s:=0; for i:=9 downto 0 do begin for j:=9 downto 0 do begin if (i=j) then s:=s+1; end. end. Какое значение примет переменная s после выполнения цикла? 0 9 10 11 2) Расположи...
pjs
03.03.2023 14:25
Какие особенности щедринской сатиры нашли своё отражение в «Дикого помещика»?...
443a
03.03.2023 14:25
ВЫЧИСЛИТЕ 1/|√5-3|+1/(√5+3)...
Емсимася
04.08.2020 08:36
Назвіть крайню північну точку Південної Америки...
Lena747456
27.11.2021 17:00
4. Найти высоту равностороннеготреугольника со стороной 4√3см....
Оленька090
24.06.2022 23:05
1) Чему равна сила давления пассажира автомобиля на сидение в момент резкого старта автомобиля с ускорением 10 м/с2 2) Длина недеформированной пружины 20 см, ее жесткость 8 Н/м....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
mas:array[1..100] of integer;
i,n:integer;
begin
readln(n);
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if mas[i] mod 10 = 0 then
write(i,' ');
end;
end.