Задан двумерный массив 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..., спасибо большое
скорее всего этим хотели сказать если думать не хочешь ставь на максимум!)
оффтоп
в общем-то я уже понял, что с чувством юмора у меня туговато в последнее время)
нет, это не юмор.
иногда бывает, что не учел, что там на один элемент больше нужно было зарезервировать, потому что, скажем, нумерация с единицы, а не с нуля.
вот я говорю, что лучше, конечно, думать головой, но на всякий случай можно перестраховаться. что я всегда и делаю.
народ может кто-нить купит лодку,а?...че-то уже сплошной офф пошел...
у нас офф, у тебя флуд ;) кто захочет - ответит в любом случае.
Молчание золото ( )