полностью убрать дробную часть числа

[Rainz]

Огромное спасибо! и на последок вопрос, в паскале в процедуру(функцию) можно передать массив?

[Grag]

Без проблем!!! Но лучше передавать не сам массив, а ссылку на этот массив...

[Alex Cones]

Если не хотите возиться с указателями, то так:

Type
TArr = Array[0..5,0..3] of Integer;

Procedure(C,D,E : TArr);

[Grag]

Не уверен, что это лучший вариант!!! Если внимательно рассмотреть какие передаются параметры в процедуры/функции и как они передаются, то станет ясно, что для массивов лучше передавать все же ссылки.
Не думаю, что лучший вариант передавать массив, допустим в тысячу элементов, как параметр...

[Alex Cones]

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

Type
TArr = Array[0..5,0..3] of Integer;

Procedure( Var C,D,E : TArr);

[Rainz]

const MAX=100;
type mas=array[1..MAX] of integer;

function SredArifm(inX:mas; x:integer):integer;
var i,sr:integer;
begin
for i:=1 to x do sr:=sr+inX[i];
sr:=sr/x;
SredArifm:=sr;
end;

sr:=sr/x; - на этом месте указатель становится за x и ругается ошибкой Error 26: Type mismatch. что сдесь не так? вроде типы совпадают..

[Alex Cones]

При делении ВСЕГДА получается дробный тип. Round/Trunc в помощь.

[Serge_Bliznykov]

При делении ВСЕГДА получается дробный тип. Round/Trunc в помощь.

ага. или использовать целочисленное деление:

sr:=sr div x;

[Rainz]

Ввести массив A(n) и B(m). организовать вывод элемнтов массивов использовав процедуру и поменять местами первый и последний элемент. Используя функцию вычеслить среднее орифметическое каждого из массивов. Все сделал, а среднеарефметическое вычесляется не верно, в чем ошибка может быть?

program zadanie2;
const MAX=100;
type mas=array[1..MAX] of integer;
var
A,B:mas;
i,n,m:integer;
sa:real;

procedure WriteArray(var inA,inB:mas; n,m:integer);
var i,x:integer;
begin
write('Array A: ');
for i:=1 to n do write(' ',inA[i]);
writeln('');

write('Array B: ');
for i:=1 to m do write(' ',inB[i]);
writeln('');

x:=inA[1];
inA[1]:=inA[n];
inA[n]:=x;

x:=inB[1];
inB[1]:=inB[m];
inB[m]:=x;
end;

function SredArifm(inX:mas; x:integer):real;
var
i:integer;
sr:real;
begin
for i:=1 to x do
  sr:=sr+inX[i];
sr:=sr/x;
SredArifm:=sr;
end;

begin
writeln('Vvedite kol-vo elementov massiva A');
read(n);
writeln('Vvedite elementi massiva A:');
for i:=1 to n do
  read(A[i]);

writeln('Vvedite kol-vo elementov massiva B');
read(m);
writeln('Vvedite elementi massiva B:');
for i:=1 to m do
  read(B[i]);

WriteArray(A,B,n,m);

write('Array xA: ');
for i:=1 to n do write(' ',A[i]);
writeln('');

write('Array xB: ');
for i:=1 to m do write(' ',B[i]);
writeln('');

sa:=SredArifm(A,n);
writeln('sredne arifmiticheskoe: ', sa:5);

sa:=SredArifm(B,m);
writeln('sredne arifmiticheskoe: ', sa);
end.

[ROMA2PVT]

всё верно:
Массив А: 9 12 2 3 4
Массив B: 19 2 3 9 2 1 2 3
среднее арифметическое А: 6.000
среднее арифметическое В: 5.125