Как вывести массив на экран? Опции

[amebka]

Задача:
Вводится размерность одномерного массива A(N) и его элементы. Составить и вывести на экран массив со значениями элементов в исходном массиве больших 10.

Код

const n_max=100;
      m_max=100;
var  i,j,m,n:integer;
     a:array[1..n_max] of integer;
     b:array[1..m_max] of integer;
begin
  write ('Razmer massiva A(N) raven ');
  read (n);
  j := 0;
  m := 0;
  writeln ('Elementy massiva A(N):');
  for i := 1 to n do

   readln(a[i]);
    if a[i] > 10 then begin
                      m := m + 1;
                      j := j + 1;
                      b[j] := a[i];
                      end;
  for j := 1 to m do
writeln ('Massiv B(M) = ', b[m]);
end.

Сообщение отредактировано: amebka - 3.04.2006 15:20

[Ozzя]

const n_max=100;
      m_max=100;
var  i,j,m,n:integer;
     a:array[1..n_max] of integer;
     b:array[1..m_max] of integer;
begin
  write ('Razmer massiva A(N) raven ');
  read (n);
  j := 0;
  m := 0;
  writeln ('Elementy massiva A(N):');
  for i := 1 to n do
   begin {<- Из-за этого ошибка}
   readln(a[i]);
    if a[i] > 10 then begin
                      m := m + 1;
                      j := j + 1;
                      b[j] := a[i];
                      end;
   end;
  for j := 1 to m do 
writeln ('Massiv B(M) = ', b[m]);
end.

Это не ограничение!
Это указание на количество позиций для вывода - применяется для красивого (форматированного вывода).

[amebka]

Всем спасибо за помощь, конечный вариант программы:

Код

const n_max=100;
      m_max=100;
var  i,j,m,n:integer;
     a:array[1..n_max] of integer;
     b:array[1..m_max] of integer;
begin
  writeln;
  write ('Razmer massiva A(N) raven ');
  read (n);
  j := 0;
  m := 0;
  writeln ('Elementy massiva A(N):');
  for i := 1 to n do
   begin
   write('Element A(', i, ') =');
   read(a[i]);
    if a[i] > 10 then begin
                      m := m + 1;
                      j := j + 1;
                      b[j] := a[i];
                      end;
   end;
writeln;
writeln ('Elementy massiva B(M):');
  for j := 1 to m do
writeln ('Element B(', j, ') = ', b[j]);
end.