Дан одномерный массив n целых чисел.Подсчитать количество вхождений однозначных чисел в данной последовательности.
Ответы
Ответ дал:
0
Программа требует ручного ввода 10 числ
var a: array [1..10] of integer;
i , k: integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
for i:=1 to 10 do
if a[i] div 10 =0
then k:=k+1;
writeln(k);
end.
var a: array [1..10] of integer;
i , k: integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
for i:=1 to 10 do
if a[i] div 10 =0
then k:=k+1;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад