|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.03.2012, 23:07 | #1 |
Новичок
Джуниор
Регистрация: 27.02.2012
Сообщений: 1
|
Нужно дописать
uses
crt; const str=5; col=5; var a:array [1..str,1..col] of integer; i,j,k,temp:integer; begin clrscr; writeln('Початкова матриця:'); for i:=1 to str do begin for j:=1 to col do begin a[i,j]:=random(8)-4; write(a[i,j]:2,' ') end; writeln end; for i:=1 to str-1 do for j:=i+1 to str do if a[i,col]<a[j,col] then for k:=1 to col do begin temp:=a[i,k]; a[i,k]:=a[j,k]; a[j,k]:=temp end; writeln('Відсортована матриця:'); for i:=1 to str do begin for j:=1 to col do write(a[i,j]:2,' '); writeln end; end. есть код, нужно к нему добавить элементы, что бы записывало в текстовый файл... |
07.03.2012, 00:22 | #2 |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Код:
Все тривиальное просто
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно дописать Тетрис. Не получается. | Mostransformer | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 11.01.2012 20:05 |
Нужно дописать программу | alex0097 | Фриланс | 3 | 16.10.2011 14:05 |
Нужно дописать программу!!! | Bal_Bes | Помощь студентам | 1 | 08.06.2011 18:08 |
Нужно дописать else | webber9989 | PHP | 3 | 10.05.2010 18:50 |
Нужно дописать программу (C\C++) | Operator-cn | Помощь студентам | 0 | 09.03.2010 20:03 |