2ухмерные массивы

[Ivka]

Привет...Очень нужна помощь...
Вот сделала программу..и теперь мне надо найти номера тех колонн, где большинство элементов меньше чем среднее арифметическое в массиве...
Помогите, пожалуйста, кто знает как это сделать.

program maisivi;
uses crt;
type mas=array[1..8,1..6] of integer;
vid=array[1..6] of integer;
var A,C:mas;
B:vid;
i,j,s,v:integer;
begin
clrscr;
for i:=1 to 8 do
for j:=1 to 6 do begin
write ('Vvedite matricu (',i,',',j,')==>');
readln(A[i,j]);
end;
writeln;
for i:=1 to 8 do begin
for j:=1 to 6 do write (A[i,j]:4);
writeln;
end;
readln
end.

[Alex11223]

Ищите сред. арф. всего массива (все сложить и делить на 8*6). Потом проходите массив по столбцам (т.е. циклы не в том порядке, как у вас, по строкам, а наоборот) и +1 к счетчику если элемент меньше средн. арф. После выхода из каждого столбца смотрите на счетчик: если он больше 3 (=большинство), то запоминаете куда-нибудь или выводите номер столбца. И обнуляете счетчик.
upd 15:50: опечатался со столбцами\строки, исправил

[Mandrivnyk]

Берешь первый столбец. Находишь среднее, потом в цикле по столбцу считаешь, сколько элементов этого столбца меньше найденного среднего. Если это количество больше половины количества строк -- печатаешь номер столбца.
Повторяешь то же самое для каждого столбца.

Update
Опять опоздал -)

[Alex11223]

Берешь первый столбец.

Насколько я понимаю, среднее арифметическое всего массива, а не каждого столбца. Или надо по другому расставить знаки препинания в задании )

[G-Kyller]

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

[Ivka]

Благодарю...

[Mandrivnyk]

Сообщение от Alex11223

Насколько я понимаю, среднее арифметическое всего массива, а не каждого столбца. Или надо по другому расставить знаки препинания в задании )

Точно!
Ну, тогда еще проще -)

[Ivka]

да, нужно сред.арифм. всего массива

[Mandrivnyk]

Сообщение от Ivka

да, нужно сред.арифм. всего массива

а что, с этим проблема?

[Ivka]

буду пробовать...:D