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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2008, 21:57   #1
xtraSHAD0W
 
Регистрация: 26.03.2008
Сообщений: 8
По умолчанию Двухмерный массив

1) Задать матрицу из M строк и N столбцов, лбым удобным способом.
2) В заданной матрице необходимо определить максимальный и минимальный элементы. Переставьте местами строки, содержащие их...

Есть какие-нибудь соображения по поводу как делать? ... помогите пожалуйста... ну или укажите пример по аналогии/схожести...
xtraSHAD0W вне форума Ответить с цитированием
Старый 22.04.2008, 09:58   #2
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
По умолчанию

Код:
program mas;
uses crt;
var a:array[1..150,1..150]of integer;
    i,i2,m,n,max,maxs,min,mins:integer;
begin
clrscr;
writeln('Vvedi m');
readln(m);
writeln('Vvedi n');
readln(n);
randomize;
max:=a[1,1];
maxs:=1;
min:=100;
mins:=1;
for i:=1 to n do
    begin
    for i2:=1 to m do
        begin
        a[i,i2]:=random(10);
        if a[i,i2]>max then
           begin
           max:=a[i,i2];
           maxs:=i;
           end;
        if a[i,i2]<min then
           begin
           min:=a[i,i2];
           mins:=i;
           end;
        write(a[i,i2]:3);
        end;
    writeln;
    end;
writeln(maxs,' i ', mins,' sro4ki pomenani mestami');
for i:=1 to m do
    begin
    max:=a[maxs,i];
    a[maxs,i]:=a[mins,i];
    a[mins,i]:=max;
    end;
writeln;
for i:=1 to n do
    begin
    for i2:=1 to m do
        write(a[i,i2]:3);
    writeln;
    end;
readln;
end.
nikleb вне форума Ответить с цитированием
Старый 22.04.2008, 18:17   #3
xtraSHAD0W
 
Регистрация: 26.03.2008
Сообщений: 8
По умолчанию

СПАСИБИЩЕ тебе, добрый человек)
xtraSHAD0W вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
двухмерный массив Enchantner Паскаль, Turbo Pascal, PascalABC.NET 3 22.04.2008 20:47
Двухмерный массив (кинозал) fudzy79 Помощь студентам 3 10.04.2008 00:07
Двухмерный массив, 2 задачи Juhn Паскаль, Turbo Pascal, PascalABC.NET 7 10.02.2008 18:55
Двухмерный массив Atheist Общие вопросы C/C++ 4 22.11.2007 14:05