0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 39
1

Найти количество элементов, которые меньше среднего значения элементов матрицы

11.06.2015, 19:13. Показов 603. Ответов 4
Метки нет (Все метки)

Найти количество элементов, которые меньше среднего значения элементов матрицы A(m x n).

Модуль
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Unit matr;
interface
type matrix=array[1..10,1..10] of real;
function Kol(m,n:integer;mas:matrix):real;
implementation
function Kol(m,n:integer; mas:matrix) : real;
var k,i,j:integer; sz,s,sum:real;
begin
sum:=0;
for i:=1 to m do
for j:=1 to n do
s:=s+mas[i,j] ;
sz:=s/(m*n);
k:=0;
for i:=1 to m do
for j:=1 to n do
if mas[i,j]<sz then k:=k+1;
Kol:= k;
end;
end.
Программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program proga;
uses matrutsa ;
var mas:matrix;
m,n:byte;
i,j:integer;
k:real;
begin
write('vvedite m,n ');
read(m);readln(n);
writeln('vvedite elementu matrix ');
for i:=1 to m do
for j:=1 to n do
begin
write('[',i,',',j,'] =');
readln(mas[i,j]);
end;
k:= Kol(m,n,mas);
write('Kol elementov  ',k);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2015, 19:13
Ответы с готовыми решениями:

В данном линейном массиве действительных чисел найти количество элементов, которые меньше среднего арифметического всех элементов этого массива
помогите!!!!!!! В данном линейном массиве действительных чисел найти количество элементов,...

Найти максимальный МАХ из тех элементов А, которые меньше среднего арифметического С всех элементов А
1.Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100. Найти максимальный МАХ...

Найти количество элементов матрицы, значения которых меньше 5-ти
Помогите написать текст программы в Паскале к заданию: Сформировать матрицу Y(11,11) из...

Найдите количество четных элементов массива, которые меньше среднего арифметического
Дан массив 5*3 из целых чисел заполненный случайными числами из интервала . Найдите количество...

4
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31268 / 20438 / 7970
Регистрация: 22.10.2011
Сообщений: 35,490
Записей в блоге: 6
11.06.2015, 19:23 2
В названии модуля ошибка. Если у тебя файл модуля называется matк.pas, то в uses надо его под тем же именем подключать:
Pascal
1
uses matr;
Добавлено через 1 минуту
Ну и потом, зачем количество сделал вещественным? Лучше делать его целочисленным.
0
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 39
11.06.2015, 19:37  [ТС] 3
Цитата Сообщение от volvo Посмотреть сообщение
окно] #2 (permalink)
Да делал и подключал под тем же именем, модуль подключает,но выдает ошыбку. А синтаксис норм?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31268 / 20438 / 7970
Регистрация: 22.10.2011
Сообщений: 35,490
Записей в блоге: 6
11.06.2015, 19:41 4
Нормально все с синтаксисом, код прекрасно работает, если файл модуля назвать matr.pas, и в uses изменить название модуля. Проверял в FPC (режим совместимости с Turbo Pascal-ем), но если нужно, могу проверить и в TP, хотя результат очевиден.
0
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 39
11.06.2015, 19:51  [ТС] 5
Спасибо.Сейчас ещё раз пробну
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2015, 19:51

Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов
Помогите, пожалуйста, правильно написать программу. Я написал код, но он не запускается. ...

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму...

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива.
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов...

Найти количество элементов, которые меньше среднего значения
Как правильно записать чтобы работало условие Program Lab; uses crt; const m=4;n=5; var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.