Задача.
В матрице mxn есть столбец (скажем первый), где элементы повторяются нужно удалить повторяющиеся строки.
Ввод - вывод в файл. Кажется я запутася в циклах.
Вот что у меня получилось.
Если у Вас будет время, пожалуйста, помогите найти ошибку.
Program date_term;
const
e=5; g=3;
Type
mas=array[1..e,1..g] of integer;
var
X,Y:mas;
k,i,j,n,m:integer;
f:text; name,name1:string [10];
BEGIN
writeln ('Write name data file');
readln(name);
assign(f,name); reset(f);
for i:=1 to n do
for j:=1 to m do
read(f,X[i,j]);
readln(f);
close(f);
writeln ('Write 2 name output file');
readln(name1);
assign(f,name1); rewrite(f);
writeln ('matr X');
for i:=1 to n do begin
for j:=1 to m do
write (X[i,j]:3);
writeln;
i:=1;
while ( i<=n ) do
{Esli o4erednoi element massiva X[i] raven posledyysemy, to}
if X[i,j]=X[i+1,j] then
begin
{delete element massiva s nomerom i}
for k:=i+1 to n+1 do
Y[i,j]:=X[i,j+1]; {Ymensaem razmer massiva}
n:=n-1
end
else i:=i+1;
writeln ('Izmenenniy matr Y');
for i:=1 to n do begin
for j:=1 to m do
write(f,Y[i,j]:3);
writeln(f);
end;
end;
close(f);
END.