
21.12.2010, 18:53
|
Прохожий
|
|
Регистрация: 19.12.2010
Сообщения: 3
Репутация: 10
|
|
глянь что у меня получилось осталось только сортировку диагонали сделать
Код:
program massiv1;
uses crt;
var n,k,i,j, stol, buf: integer;
p: real;
a: array[1..10,1..10] of integer; //
f,g: text;
begin
clrscr;
assign(g,'c:\1.txt'); //
reset(g); //
writeln('Исходный массив');
j:=1;
while not eoln(g) do //
begin
while j<=1 do // сделан для того чтобы считать 1 символ кол-во строк
begin
read(g,n);
j:=j+1;
end;
read(g,stol); // т к счетчик перепрыгнул на след елемент можно занести и его кол-во столбцов
end;
i:=0; // i- строки
while not eof(g) do // eof - использ для проверки конца файла, а eoln- для пров конца строки
begin
if (i<=stol) then i:=i+1;
j:=1; // j- столбцы
while j<=n do
begin
read(g,a[i,j]); // заполняем массив
j:=j+1;
end;
end;
close(g);
writeln('Массив заполнен значениями.'); //вывод массива на экран
writeln;
for i:=1 to stol do begin
for j:=1 to n do
begin
write(a[i,j],' ');
end; writeln; end;
// сортировка
for i:=1 to n-1 do begin
for j:=1 to n-1 do begin
a[i,j]:=i+j+1;
end;
end;
writeln('Отсортированный массив!!!'); //вывод массива на экран
writeln;
for i:=1 to stol do begin
for j:=1 to n do
begin
write(a[i,j],' ');
end; writeln; end;
end.
|