Помощь в Паскале

[Андрей Романюк]

Помощь в Паскале

задать двумерный массив B[6,6] случайным образом на промежутке от [-25;25]
затем создать новый одномерный массив из элементов меньших 5

получилось все кроме одного: выводит последний символ не правильно
и еще вопрос можно ли сделать этот массив меньше чем А[1..36]??

uses crt;
Type mas = array [1..6 , 1..6] of integer;
var B:mas{ двумер.массив};
A:array[1..36] of integer;{одномер.массив}
i,j,k:integer;{индексы массивов}
begin
clrscr;
randomize;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
B[i,j]:=random(50)-25;
write(B[i,j]:5);
end;
writeln;
end;
writeln;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
if B[i,j]<5 then A[k]:=B[i,j];
if B[i,j]>=5 then A[k]:=0;
write(A[k]:4);
end;
end;
readln;
end.

 

[Андрей Романюк]

заранее спасибо)

 

[Vladimir_S]

Так. А значение параметра k - Пушкин задавать будет? И потом - зачем заполнять массив А нулями? Вроде как в условии это не требуется. Отсюда работающий вариант:

uses crt;
Type
 mas = array [1..6 , 1..6] of integer;
var
 B:mas{ двумер.массив};
 A:array[1..36] of integer;{одномер.массив}
 i,j,k:integer;{индексы массивов}
begin
 clrscr;
 randomize;
 for i:=1 to 6 do
  begin
   for j:=1 to 6 do
    begin
     B[i,j]:=25-random(50);
     write(B[i,j]:5);
    end;
   writeln;
  end;
 writeln;
 k:=0;
 for i:=1 to 6 do
  for j:=1 to 6 do
   if B[i,j]<5 then
    begin
     k:=k+1;
     A[k]:=B[i,j];
     write(A[k]:5);
    end;
 readln;
end.

 

[Андрей Романюк]

ага, спасибо, массив А заполнил нулями т.к. значение к не задал) без этого он мне выводил 36 чисел, а числа которые не были меньше 5 он заменял числом ( предыдущим) которое было меньше 5, поэтому я их сделал 0, так более понятно было))))))