![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 15.06.2007
Сообщений: 9
|
![]()
вот задача!
дана матрица а(n,m) наидите количество элементов этой матрицы,больших среднего арифмитического всех её элементов! приблизительно это будет так program mayrica; var a:array[1..10,1..10] of integer; sr,kol,sum:real; j,i:integer; m,n:integer; begin writeln('vedite'); readln(n,m); sr:=0; kol:=0; sum:=0; for i:=1 to n do for j:=1 to n do writeln('a[',i,',',j,']='); readln(a[i,j]); kol:=kol+1; sum:=a[i,j]+sum end; for i:=1 to n do for j:=1 to n do then kol:=kol+1; writeln('kol:=kol'); end; readln; end. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 15.02.2007
Сообщений: 183
|
![]()
дальше, зная количество элементов и их сумму находим среднее арифметическое
avg:=sum div kol; for i:=1 to n do for j:=1 to m do if a[i,j]>avg then kol1:=Kol1+1; ну вот так kol1 - это переменная, в которой считается количество нужных тебе элементов Теперь добавим этот код в программу: program mayrica; var a:array[1..10,1..10] of integer; sr,kol,sum:real; j,i,kol1,avg:integer; m,n:integer; begin writeln('vedite'); readln(n,m); sr:=0; kol:=0; sum:=0; for i:=1 to n do for j:=1 to n do begin writeln('a[',i,',',j,']='); readln(a[i,j]); kol:=kol+1; sum:=a[i,j]+sum end; avg:=sum div kol; for i:=1 to n do for j:=1 to m do if a[i,j]>avg then kol1:=Kol1+1; write('количество элементов матрицы больших среднего арифметического: ',kol1); readln; end.
Знать все невозможно, в силу того, что жить бы стало неинтересно.
Последний раз редактировалось А. Долматов; 26.06.2007 в 17:27. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 23.08.2007
Сообщений: 16
|
![]()
а можно ведь количество элементов посчитать просто как m*n
|
![]() |
![]() |
![]() |
#4 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
![]()
и я про это подумал ..
finch - ты где взял код с 1 begin и тремя end ?!
Берегите друг друга!
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перебор всех элементов в TtreeView | vitalik007 | Общие вопросы Delphi | 10 | 09.04.2008 15:44 |
Количество элементов в таблице | Ermiss | БД в Delphi | 4 | 21.12.2007 21:26 |
Сумма элементов массива, больших А | Sultan | Помощь студентам | 1 | 21.04.2007 11:13 |
Количество элементов в динамическом массиве | lytkin | Общие вопросы Delphi | 8 | 21.02.2007 14:50 |