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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.06.2010, 21:47   #1
Oda33
 
Регистрация: 20.06.2010
Сообщений: 6
По умолчанию Двумерные массивы

Дан двумерный массив размерностью 5 х 6, заполненный случайным образом.
− заменить максимальный элемент каждой строки на противоположный.
− вставить после столбцов с максимальными элементами столбец из нулей.
− удалить среднюю строку.
− поменять местами предпоследний и последний столбцы.



КАК ЭТО СДЕЛАТЬ???????((((((((((
Oda33 вне форума Ответить с цитированием
Старый 20.06.2010, 23:01   #2
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

− заменить максимальный элемент каждой строки на противоположный.
Код:
FOR i:=1 TO n DO
              BEGIN
                 max:=MAS[I,1];
                 jmax:=1;
                 FOR j:=1 TO m DO
                   IF MAS[I,j]>max THEN
                        begin
                          max:=MAS[I,J];
                          jmax:=j;
                        end;
                        writeln('MAX элемент ',i,'-й строки:',max);
                   if max>0 then
                      begin
                        mas[i,jmax]:=-1*max;
                      end
                       else if max<0 then
                            begin
                              mas[i,jmax]:=abs(max);
                            end;
       end;
− удалить среднюю строку.

Код:
ys:=m;
       FOR I:=3+1 TO n DO
          FOR j:=1 TO m DO
              mas[i-1,j]:=mas[i,j];
              dec(ys);
              writeln;

              FOR I:=1 TO n-1 DO
              begin
                FOR j:=1 TO m DO
                begin
                   write(mas[i,j]:2,' ');
                end;
                writeln;
              end;
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерные массивы.... :( Pavel_Ghost Помощь студентам 2 29.05.2010 05:56
Двумерные массивы Тигран001 Паскаль, Turbo Pascal, PascalABC.NET 17 16.04.2010 22:46
Двумерные массивы angelangel Общие вопросы C/C++ 2 22.12.2008 15:47