НА ПАСКАЛЕ ABC с простой версией(40 баллов)
Задача:
Среди заданных чисел найти количество двухзначных чисел.
Формат ввода:
На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).
На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.
Формат вывода:
Целое число.
Пример входных данных
5
1 -20 -3 40 0
Пример выходных данных
2
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад