Question

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

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.