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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2009, 19:22   #1
Ronk
 
Регистрация: 12.01.2009
Сообщений: 6
По умолчанию Массивы

Помогите с программой
Задание:


Заранее спасибо

Последний раз редактировалось Ronk; 04.06.2009 в 19:26.
Ronk вне форума Ответить с цитированием
Старый 04.06.2009, 19:58   #2
NSvirus
пропагандирую жизЪ
Форумчанин
 
Аватар для NSvirus
 
Регистрация: 19.03.2007
Сообщений: 950
По умолчанию

...
read(b);
for i:=1 to m do
if mas[i]>max then max:=mas[i];
for i:=max+1 to m do
mas[i]:=b;
end.

**учитывая что квадратная**:

...
sr:=(dl+1)/2;
for i:=1 to PS do
begin
temp:=mas[i,sr];
mas[i,sr]:=mas[sr,i];
mas[sr,i]:=temp;
end;
Посторонним В.
NSvirus вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
С++, массивы Svetlyachok Помощь студентам 4 23.04.2009 12:21
Массивы!! NitriNKa Помощь студентам 8 16.04.2009 17:07
Массивы Ximer Паскаль, Turbo Pascal, PascalABC.NET 7 14.04.2009 15:02