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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.11.2018, 00:46   #1
furetun
Новичок
Джуниор
 
Регистрация: 16.11.2018
Сообщений: 2
По умолчанию Двумерные массивы

Дана матрица размера M = 4 х N = 6. Получить из нее новую матрицу размера M х (N+1), повторяющую исходную матрицу, но после последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей. Если требуемых столбцов нет, то вставить столбец из единиц.
furetun вне форума Ответить с цитированием
Старый 25.11.2018, 15:03   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const m=4;
      n=6;
var i,j:integer;
    otr:boolean;
    p:array[1..m,1..n] of integer;
    p1:array[1..m,1..n+1] of integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-10+Random(21);
         p1[i,j]:=p[i,j];
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   otr:=true;
   For i:=1 to m do
      otr:=otr and (p[i,n]<0);
   For i:=1 to m do
      If otr then
         p1[i,n+1]:=0 else
         p1[i,n+1]:=1;
   For i:=1 to m do
   begin
      For j:=1 to n+1 do
         Write(p1[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 21:48
Двумерные массивы(матрица) 2)Строковые массивы(строки): 3)Структуры nuriyat Помощь студентам 1 21.01.2012 16:16
Двумерные массивы(массивы указателей на массивы) krytishka99 Помощь студентам 1 29.12.2011 19:51
Двумерные массивы Malyshka Помощь студентам 7 12.12.2010 23:54
двумерные массивы Кирилл17 Помощь студентам 2 20.12.2008 01:33