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

[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 11:20