С клавиатуры вводится 5 целых чисел

Задание:

С клавиатуры вводится 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.

Знаете другой ответ?

Отправить свой ответ