Mass1_3

Заполнить массив размером 15 элементов целыми числами, вводимыми с клавиатуры. Вывести на экран элементы массива и количество чисел больших 9.

Question

Информатика

Палладий

20 августа, 22:08

Mass1_3

Заполнить массив размером 15 элементов целыми числами, вводимыми с клавиатуры. Вывести на экран элементы массива и количество чисел больших 9.

+5

Ответы (1)

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

Петрай · Answer 1

Var

n, i:integer;

a:array[1 ... 15]of integer;

begin

for i:=1 to 15 do

readln (a[i]) ;

writeln ('Массив: ') ;

for i:=1 to 15 do

begin

write (a[i],' ') ;

if a[i]>9 then n:=n+1;

end;

writeln;

writeln ('Ответ: ', n)

end.

Mass1_3Заполнить массив размером 15 элементов целыми числами, вводимыми с клавиатуры. Вывести на экран элементы массива и количество чисел больших 9.

Mass1_3

Заполнить массив размером 15 элементов целыми числами, вводимыми с клавиатуры. Вывести на экран элементы массива и количество чисел больших 9.