IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача по теме двумерные массивы, Помогите пожалуйста решить ЗАДАЧУ=)
сообщение
Сообщение #1


Гость






Задан двумерный массив 4 на 4. Найти минимальный элемент каждого столбца и написать его в новый (одномерный) массив. rolleyes.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






!help.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


///
**

Группа: Пользователи
Сообщений: 78
Пол: Мужской
Реальное имя: Илья

Репутация: -  0  +



VAR
w,i,j,min:integer;
a:array[1..4,1..4] of integer;
q:array[1..20] of integer;
BEGIN
assign(input,'input.in');
reset(input);
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
read(a[i,j]);
end;
end;

for i:=1 to 4 do
begin
min:=20000;
for j:=1 to 4 do
begin
if min>a[j,i] then
begin
min:=a[j,i];
inc(w);
q[w]:=min;
end;
end;
end;
END.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


Может я и придраюсь, но зачем новый массив делать размером 20 элементов ведь в итоге туда запис.
4 min элемента из 1 матрицы ?


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


///
**

Группа: Пользователи
Сообщений: 78
Пол: Мужской
Реальное имя: Илья

Репутация: -  0  +


я всегда беру с запасом....привычка)..но по-мойму это не так много заберет памяти?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


В принципе да, но зачем ?
(Типичная занудная фраза : представь что таких массивов милионны)


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Zzzz..., спасибо большое respect2.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Цитата
я всегда беру с запасом....привычка)..но по-мойму это не так много заберет памяти?


Цитата
В принципе да, но зачем ?


на олимпиадах это иногда спасает. конечно, головой лучше думать, но лишним не будет накинуть десяток элементов.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
на олимпиадах это иногда спасает. конечно, головой лучше думать, но лишним не будет накинуть десяток элементов.


Это юмор такой или я чего-то недопонял ? blink.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


///
**

Группа: Пользователи
Сообщений: 78
Пол: Мужской
Реальное имя: Илья

Репутация: -  0  +


скорее всего этим хотели сказать если думать не хочешь ставь на максимум!)

Сообщение отредактировано: Zzzz... -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


оффтоп

в общем-то я уже понял, что с чувством юмора у меня туговато в последнее время)


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


нет, это не юмор.

иногда бывает, что не учел, что там на один элемент больше нужно было зарезервировать, потому что, скажем, нумерация с единицы, а не с нуля.

вот я говорю, что лучше, конечно, думать головой, но на всякий случай можно перестраховаться. что я всегда и делаю.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


///
**

Группа: Пользователи
Сообщений: 78
Пол: Мужской
Реальное имя: Илья

Репутация: -  0  +


народ может кто-нить купит лодку,а?...че-то уже сплошной офф пошел...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


у нас офф, у тебя флуд ;) кто захочет - ответит в любом случае.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


поиск
****

Группа: Пользователи
Сообщений: 347
Пол: Мужской
Реальное имя: nir

Репутация: -  2  +


Молчание золото ( smile.gif )

Сообщение отредактировано: renesko1 -


--------------------
typedef void Śūnyatā ;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.04.2024 8:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name