С клавиатуры вводится 5 целых чисел . Вывести на экран только однозначные числа
var
a: array [1..5] of integer; //Массив из 5 целочисленных элементов
i: integer;
begin
for i:= 1 to 5 do
begin
writeln(Введите целое число);
readln(a[i]);
end;
write(Однозначные числа: );
for i:= 1 to 5 do
if a[i] div 10 = 0 then write(a[i], );
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
