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

[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

[volvo]

Writeln(' Massiv B: ');
for j := 1 to m do
  write(b[j]:6);
Writeln;

?

[amebka]

Writeln(' Massiv B: ');
for j := 1 to m do
  write(b[j]:6);
Writeln;

?

он выводит только последнее число... а мне нужны все числа...
а что это еще за цифра 6?

[Ozzя]

он выводит только последнее число... а мне нужны все числа...
а что это еще за цифра 6?

А m у тебя случайно не равно 1? (То есть кол-во элементов, больших 10 = 1?)
Write(b[j]:6);
Означает, что на вывод числа отводится 6 позиций

Сообщение отредактировано: Ozzя - 3.04.2006 11:31