Цитата:
Сообщение от Madara
Прошу вас помочь мне разобраться с этой проблемой.
|
Легко.
1. Вводим еще одну переменную формата Integer, напр. q.
2. Вместо
Код:
for i:=1 to n do
for j:=1 to n do
begin
if A[i,j]>K then C[i]:=A[i,j];
write(C[i], ' ');
end;
пишем
Код:
q:=0;
for i:=1 to n do
for j:=1 to n do
if A[i,j]>K then
begin
q:=q+1;
C[q]:=A[i,j];
write(C[q], ' ');
end;