1. Информатика
  2. На паскале abc с простой

На паскале abc с простой версией(40 ) : среди заданных чисел найти количество двухзначных чисел. формат ввода: на первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000). на второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел. формат вывода: целое число. пример входных данных 5 1 -20 -3 40 0 пример выходных данных 2

Roman2321 Roman2321    2   20.09.2019 06:00    6

Ответы
advoumnaya advoumnaya  01.09.2020 19:13
Program n1;
var n,i,a,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
read(a);
if abs(a) in [10..99] then k:=k+1;
end;
write(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
RosalinaT14 RosalinaT14  22.05.2021 06:50
1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем...
МаминаГадость12 МаминаГадость12  22.05.2021 07:02
1-Постройте таблицы истинности для следующих логических выражений: 1. A(AB) 2. (AB) 2-Найдите значения выражений: 1. (10)(01) 2. (11)(01) 3-Найдите значение логического...
del9832 del9832  05.12.2020 19:38
Определить в одномерном числовом массиве A, состоящий из n элементов, число соседства с двух положительных чисел. на мове ci...
макс3069 макс3069  24.10.2020 10:05
Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer;Begin s := 0; for k := 4 to 8 do s := s+7; writeln(s);End. Определите, что будет напечатано...
MrArt1k01 MrArt1k01  24.10.2020 10:03
Определите, что будет напечатано в результате выполнения следующего скрипта: s = 25 if s % 2 != 0: s = s – 1 k = s / 2 else: k = s print(k)...
sergeygrachev sergeygrachev  24.10.2020 10:02
С ресурсов сети интернета Найдите дополнительную информацию о происхождение слова алгоритм​...
Pantiik Pantiik  24.10.2020 10:00
Какое значение будет иметь переменная р после выполнения следующей программы, если с клавиатуры введено число 7? a = int(input(”Введите число ”)) if (a = 2) and (a = 14): b =...
НикВероник1 НикВероник1  28.11.2019 14:23
Как исправить ошибку с internet explore? 1)нажимаю открыть 2)идёт загрузка 3)открывается окно 4)потом закрывается...
kira260606 kira260606  05.07.2019 16:30
Каков будет результат выполнения фрагмента программы, написанной на языке программирования pascalabc: write(length(‘информатика’)); а) инфрматика б) 11 в) 9 г) 11 информатика...
elv1n elv1n  05.07.2019 16:30
На программной ленте могут быть напечатаны цифры. над лентой находится некий исполнитель, который может выполнять 2 команды: ( ) — передвинуться на одну цифру влево; (+) — изменить...

Популярные вопросы