Задан двумерный массив 4 на 4. Найти минимальный элемент каждого столбца и написать его в новый (одномерный) массив.

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.

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

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

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

Zzzz..., спасибо большое

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

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

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

оффтоп

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

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

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

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

народ может кто-нить купит лодку,а?...че-то уже сплошной офф пошел...

у нас офф, у тебя флуд ;) кто захочет - ответит в любом случае.

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