задать двумерный массив 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.