|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
14.01.2010, 12:13 | #1 (permalink) |
Новичок
Регистрация: 01.12.2009
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу на Паскале
а) каждого из столбца б) каждого из столбца имеющего четный номер |
14.01.2010, 12:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Зачастую проблемы у людей очень похожие, обратите внимание на это Помогите решить задачу в Паскале Помогите решить задачу на Паскале Помогите решить задачу в паскале Не могу решить задачу на паскале Помогите решить задачу) Помогите решить задачу. |
14.01.2010, 13:46 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Привожу только цикл нахождения среднего арифметического каждого столбца
Код:
for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:=s/m; writeln('среднее арифметическое элементов ',i,' столбца равно ',s); end; Код:
for i:=1 to n do if i mod 2=0 then begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:=s/m; writeln('среднее арифметическое элементов ',i,' столбца равно ',s); end;
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|