Pascal. Задача на одномерные массивы с использованием процедур

[Alt+F4]

Помогите пожалуйста с решением задачи:

Заданы 2 любых одномерных массива V и F. Для каждого массива вычислить:

- сумму максимального и минимального элементов
- количество положительных элементов

Использовать процедуры ОБЯЗАТЕЛЬНО.

[Sazary]

Чем помочь? Решить?

Что непонятно? Где ваши наработки?
Задача-то элементарная. Уж если совсем невмоготу, то используйте поиск. Решалась уже много раз.

[Alt+F4]

Ну собственно она решена, только без процедур. Вот :

Program LAST;
uses crt;
const n=10;
type
mass=array [1..10] of real;
var
v,f:mass;
x,max,min,summ,k,max1,min1,k1:real;
i:integer;

begin clrscr;randomize;
writeln('Massiv V: ');
for i:=1 to n do begin v[i]:=random(10);
write(v[i]:2:0);
end;

begin writeln;
writeln('Massiv F: ');
for i:=1 to n do begin f[i]:=random(10);
write(f[i]:2:0);end;writeln;end;

begin
max:=v[1];min:=v[1];
for i:=2 to n do if (v[i]>max) then max:=v[i];
for i:=2 to n do if (v[i]<min) and (v[i]>0) then min:=v[i];
for i:=1 to n do if (v[i]>0) then k:=k+1;
writeln('Dlya V: Sum= ',round(max+min),' Kol-vo= ', round(k));

max1:=f[1];min1:=f[1];
for i:=2 to n do if f[i]>max1 then max1:=f[i];
for i:=2 to n do if (f[i]<min1) and (f[i]>0) then min1:=f[i];
for i:=1 to n do if f[i]>0 then k1:=k1+1;
writeln;
writeln('Dlya F: Sum= ',round(max1+min1),' Kol-vo= ', round(k1));
readkey; end;
end.


Мне только нужно имеено с процедурами, в которых я не секу. Сейчас поиск поюзаю.

[Sazary]

Alt+F4, в следующий раз сразу выкладывайте свой код.

И еще: код заключайте в теги CODE ("#" на панели в окне редактирования).

Вам обязательно с процедурами, или можно функциями? Просто с ними удобнее:

uses crt;
const n=10;
type
mass=array [1..10] of real;
var
v,f:mass;
i : integer;

function getmin(a : mass; m : integer) : integer;
var i,min : integer;
begin
min := 1;
for i:=1 to m do
 if a[i]<a[min] then min := i;
 getmin := min;
end;

function getmax(a : mass; m : integer) : integer;
var i,max : integer;
begin
max := 1;
for i:=1 to m do
 if a[i]>a[max] then max := i;
getmax := max;
end;

function getPolCount(a : mass; m : integer) : integer;
var i,count : integer;
begin
count := 0;
for i:=1 to m do
 if a[i]>0 then inc(count);
getPolCount := count;
end;

begin
clrscr;
randomize;
writeln('Massiv V: ');
for i:=1 to n do
 begin
 v[i]:=random(10);
 write(v[i]:2:0);
 end;
writeln;
writeln;
writeln('Massiv F: ');
for i:=1 to n do
 begin
 f[i]:=random(10);
 write(f[i]:2:0);
 end;

writeln;
writeln;
writeln('massiv V:');
writeln('summa min i max = ',(v[getmin(v,n)]+v[getmax(v,n)]):2:0);
writeln('kolechestvo polozhitelnyh el-v: ',getPolcount(v,n));

writeln('massiv F:');
writeln('summa min i max = ',(f[getmin(f,n)]+f[getmax(f,n)]):2:0);
writeln('kolechestvo polozhitelnyh el-v: ',getPolcount(f,n));


readln;
end.

[Alt+F4]

Мне именно с процедурами нужно

[Sazary]

Ну если с процедурами, то так:

uses crt;
const n=10;
type
mass=array [1..10] of real;
var
v,f:mass;
i : integer;
min,max,count : integer;

procedure getmin(a : mass; m : integer; var min : integer);
var i : integer;
begin
min := 1;
for i:=1 to m do
 if a[i]<a[min] then min := i;
end;

procedure getmax(a : mass; m : integer; var max : integer);
var i : integer;
begin
max := 1;
for i:=1 to m do
 if a[i]>a[max] then max := i;
end;

procedure getPolCount(a : mass; m : integer; var count : integer);
var i : integer;
begin
count := 0;
for i:=1 to m do
 if a[i]>0 then inc(count);
end;

begin
clrscr;
randomize;
writeln('Massiv V: ');
for i:=1 to n do
 begin
 v[i]:=random(10);
 write(v[i]:2:0);
 end;
writeln;
writeln;
writeln('Massiv F: ');
for i:=1 to n do
 begin
 f[i]:=random(10);
 write(f[i]:2:0);
 end;

writeln;
writeln;
writeln('massiv V:');
getmin(v,n,min);
getmax(v,n,max);
writeln('summa min i max = ',(v[min]+v[max]):2:0);
getPolCount(v,n,count);
writeln('kolechestvo polozhitelnyh el-v: ',count);

writeln('massiv F:');
getmin(f,n,min);
getmax(f,n,max);
writeln('summa min i max = ',(f[min]+f[max]):2:0);
getPolCount(f,n,count);
writeln('kolechestvo polozhitelnyh el-v: ',count);


readln;
end.

[SunKnight]

ну если процедуры, то обявляй глобальные переменные которые будут содержать нужные результаты и затем переделывай:

var result:integer;
......................
procedure getPolCount(a : mass; m : integer; var result:integer);
begin
.............
result:=..;
end;

и т.д.

[Alt+F4]

Огромное спасибо. В следующий раз буду аккуратней при создании тем