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

задать двумерный массив 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 - Пушкин задавать будет? И потом - зачем заполнять массив А нулями? Вроде как в условии это не требуется. Отсюда работающий вариант:

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

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