Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Общие вопросы .NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2010, 05:56   #1
Mojevelnik
 
Регистрация: 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. Вот я бы хотел понять как эта программа работает с самого начала помогите плис.
Mojevelnik вне форума Ответить с цитированием
Старый 29.11.2010, 06:12   #2
Руслантус
Наркоман самоучка
Форумчанин
 
Аватар для Руслантус
 
Регистрация: 22.07.2007
Сообщений: 276
По умолчанию

http://programmersforum.ru/forumdisplay.php?f=31
#include <мозг.h>
Руслантус вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачкой на массив плис! J_o_h_n_ Паскаль, Turbo Pascal, PascalABC.NET 2 07.04.2009 18:03
Разберите код программы и напишите что там не так!!! MjRed Фриланс 4 08.12.2008 09:27