|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.11.2010, 05:56 | #1 |
Регистрация: 28.11.2010
Сообщений: 3
|
Разберите плис по пунктикам
program CMEHAMECTminmax;
const m=10; type tMas = array[1..m,1..m] of integer; var mas:tMas; i,j:integer; procedure create (var a:tMas); begin for i:=1 to m do for j:=1 to m do a[i,j]:=random(1000); end; procedure print(a:tMas); begin for i:=1 to m do begin for j:=1 to m do write(a[i,j]:4); writeln(''); end; end; procedure simmetr(var a:tMas); var tmp:integer; begin for i:=1 to m do for j:=1 to m div 2 do begin tmp:=a[i,j]; a[i,j]:=a[i,m-j+1]; a[i,m-j+1]:=tmp; end; end; begin create(mas); print(mas); simmetr(mas); writeln(''); print(mas); end. Вот я бы хотел понять как эта программа работает с самого начала помогите плис. |
29.11.2010, 06:12 | #2 |
Наркоман самоучка
Форумчанин
Регистрация: 22.07.2007
Сообщений: 276
|
#include <мозг.h>
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с задачкой на массив плис! | J_o_h_n_ | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 07.04.2009 18:03 |
Разберите код программы и напишите что там не так!!! | MjRed | Фриланс | 4 | 08.12.2008 09:27 |