матрица 2

[jennyjen]

дана матрица B[1..3, 1..3] of real нужно наить арифметическую медию между числом всех положительных элементов и максимальным элементом. исспользовать функцию. язык паскаль.

type matrice=array [1..3,1..3] of real;
vector= array [1..3] of real;
var b:matrice;
     x:vector;
     i,j:integer;
max,m,p:real;
function Media(b:matrice):real;
begin
m:=0;
max:=b[1,1];
for i:= 1 to 3 do
for j:= 1 to 3 do
if b[i,j]>max then max:=b[i,j];
if b[i,j]>0 then x[i]:=b[i,j];
if x[i] mod 2=0 then m:=m+1;
p:=(m+max)/2;
Media:=p;
end;
Begin
write ('Introduce the elements:');
for i:=1 to 3 do
for j:= 1 to 3 do
readln(b[i,j]);
writeln('matrice is:');
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
write(b[i,j]:3);
writeln;
end;
writeln('media is', Media(b));
readln;
end.

ошибка несоответствие типов
помогите

[Z1000000]

Пытаешься разделить по модулю действительное число. Деление по модулю определено только для целых чисел.
Непонятно зачем тебе вообще нужно деление по модулю?

[alex_fcsm]

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

Пытаешься разделить по модулю действительное число. Деление по модулю определено только для целых чисел.
Непонятно зачем тебе вообще нужно деление по модулю?

Деление по модулю? Остаток от деления наверное

[Z1000000]

Модератор всегда прав!

[Stilet]

наить арифметическую медию

Извиняюсь, а что за зверь такой?

P.S. Модератор тоже человек, и имеет право ошибать ошибающихся.

[jennyjen]

[QUOTE=Stilet;679719]Извиняюсь, а что за зверь такой?

(a+b)/2 или (a+b+c+d+e+f)/6
это примеры...

Среднее арифметическое проще говоря