Помогите написать программу! PascalABC. Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.

Question

Информатика

Лада

22 мая, 00:51

Помогите написать программу! PascalABC. Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.

+3

Ответы (1)

Знаете ответ на вопрос?

Ивася · Answer 1

Var a: array [1 ... 5] of integer; i, amount: integer;

begin

read (a[1], a[2], a[3], a[4], a[5]) ;

amount : = 0;

for i : = 1 to 5 do

begin

while a[i] > = 10 do

begin

a[i] : = a[i] div 10;

end;

if a[i] = 8

then

amount : = amount + 1;

end;

writeln (amount) ;

end.