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.

Answer 2

Program mass1_3;
uses crt;
var n,i:integer;
a:array[1..15]of integer;
begin
for i:=1 to 15 do begin
write('Ìàññèâ: ');
read(a[i]);

end;
for i:=1 to 15 do begin
write(a[i],' ');
if a[i]>9 then n:=n+1;
end;
writeln;
writeln('Îòâåò: ',n);
end.