с клавиатуры вводится 5 целых чисел . Вывести на экран только однозначные числа
5-9 класс
|
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.
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. пожалуйсто
Другие вопросы из категории
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.