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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2015, 16:32   #1
Dvutavr
Новичок
Джуниор
 
Регистрация: 19.12.2015
Сообщений: 3
Печаль [ПАСКАЛЬ]: Работа с двумерным массивом

Матрицу R(9, 8) заполнить целыми случайными числами в диапазоне от -24 до 24. Образовать два одномерных массива A(N) и В(М). В массив А поместить все положительные элементы матрицы R, в массив В - все отрицательные. Массив А и В заполнить плотно. Вывести R, А, В

From Stilet: Тему перенес.

Последний раз редактировалось Вадим Мошев; 19.12.2015 в 19:56.
Dvutavr вне форума Ответить с цитированием
Старый 19.12.2015, 18:04   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Сможешь самостоятельно написать код ввода матрицы?
С остальным поможем.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.12.2015, 18:06   #3
Dvutavr
Новичок
Джуниор
 
Регистрация: 19.12.2015
Сообщений: 3
По умолчанию

к сожалению нет, никогда не занималась этим...
Dvutavr вне форума Ответить с цитированием
Старый 19.12.2015, 18:57   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Хм... Ну могу на Фрипаскале:

Код:
var r:array[1..9,1..8] of integer; a,b:array of integer;
i,j:integer;
begin
 for i:=1 to 9 do begin for j:=1 to 8 do begin
   r[i,j]:=-24+random(48);
   if r[i,j]>0 then begin SetLength(a,Length(a)+1); a[High[a]]:=r[i,j]; end else
   if r[i,j]<0 then begin SetLength(a,Length(b)+1); b[High[b]]:=r[i,j]; end;
   Write(r[i,j]:5);
  end; writeln;
 end;
 for i:=Low(a) to High(a) do Write(a[i]:5); writeln;
 for i:=Low(b) to High(b) do Write(b[i]:5); writeln;
 readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 19.12.2015, 19:01   #5
Dvutavr
Новичок
Джуниор
 
Регистрация: 19.12.2015
Сообщений: 3
По умолчанию

спасибо большое!
Dvutavr вне форума Ответить с цитированием
Старый 19.12.2015, 19:42   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Да не за что )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.12.2015, 09:29   #7
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Dvutavr Посмотреть сообщение
Массив А и В заполнить плотно.
Что под этим подразумевается?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 22.12.2015, 10:22   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Что под этим подразумевается?
Ну скорее всего динамический массив
Иначе дело швах.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачу chajnichek JavaScript, Ajax 6 30.09.2013 17:58
Помогите решить задачу Hranitel Помощь студентам 11 09.10.2008 16:25
Помогите решить задачу. Shady Общие вопросы Delphi 7 10.11.2007 23:09