tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на паскале,
Напишите программу на паскале, которая определяет: сколько раз число 10 встречается среди элементов линейной таблицы а(n), состоящей из целых чисел.
nellimatveeva
2 19.07.2019 22:10
4
Ответы
Назмина134
22.09.2020 17:28
Var a:array[1..10] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to 10 do begin
readln(a[i]);
if a[i] = 10 then
k:=k+1;
end;
write(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
анна2170
12.12.2020 12:09
Напишите скрипт, который принимает с клавиатуры целое число и проверяет, на какое количество двузначных чисел оно делится. На javascript....
Белочка0107
12.12.2020 12:11
4 пункт(кроссвортд) 1.2. Процессор3.4.5.6.7.8.9....
lllkjhgf
12.12.2020 12:12
При копировании клетки А2 в клетки В2 и А3 в них были занесены формулы $B1+C1 и $B2+B2 соответственно. Что было записано в клетке A2?...
Anastasiya922
12.12.2020 12:14
Pascal, написать программу, находящую площадь и периметр треугольника....
калькуляторлена
12.12.2020 12:14
В кодировке ASCII каждый символ кодируется 8 битами. Определите информационный объём сообщения в этой кодировке: Длина данного текста 32 символа....
kivonen3p08qoq
04.05.2020 10:35
Какая команда будет выполнена после следующих действий?1. Нажми на вкладку Файл, затем нажми на Создать. 2. Нажми на Новая презентация, а затем на кнопку Создать.1)Запись...
ЛунаВаленте
16.12.2021 11:29
Как закрасить квадрат в программе кумир, если даны только две стороны, через алгоритм нц пока кц...
sabegov1234
16.12.2021 11:30
Напишите одну из 2 задач а Паскале...
mariapodgornova
07.05.2021 09:57
Сочинение на тему как война отразилась на судьбах детей...
Локи30
07.05.2021 09:57
ів . чи підтримали запорозькі козаки перехід Івана Мазепи на бік Карла XII...
Популярные вопросы
V. Fill in the correct word derived from the word in bold. 1) In most...
2
Клеточная стенка бактерий содержит: а) хитин и аминокислоты б) полисахаридыв)...
3
4633. У котрому рядку всі слова з частками HE 1 HI написані правильно?А....
2
4. На стороні Ас трикутника АВС вибрано точку М так, що ZABM = 2C....
1
с контрольной работой Spotlight 7 TEST 5 1) what gadgets helps you...
2
Укажите название субъекта, а также экономического района, к которому...
3
15. Выполните действия: а) 11°25 + 53°40 :б) 28°53 — 13°46/;в) 105°12/23...
3
С какими из веществ: CI2 , Ca , Na2O , SeO2 , HNO3 , Li3PO4 , SiO2...
2
Какой из следующих оксидов растворим в воде при нормальных условиях?Cao,SiO,Al2O3,HgO,CuO...
2
Плз быренько сделайте инглиш ...
3
i, k: integer;
begin
k:=0;
for i:=1 to 10 do begin
readln(a[i]);
if a[i] = 10 then
k:=k+1;
end;
write(k);
end.