Подпрограмма

[fardik]

Задание №9
http://pixs.ru/showimage/WP20131210_...6_10119401.jpg
Понимаю что нужно задать 4 массива , а дальше с чего начать и тд без понятие, помогите, если не сложно.
Заранее спасибо!

[type_Oleg]

Очешуеть! Картинка 4 Мбайта. Нельзя разве было сократить. Или это тоже не умеешь?

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

.. а дальше с чего начать и тд без понятие, помогите, если не сложно..

Средние арифметические каждого массива вычислить. А так как массивы разного объема, то использовать динамические массивы.
В качестве подпрограммы - здесь напрашивается функция.

type TipAr=array of Double; 
function SredArif(ar:TipAr):Double;
var i,nar:Integer;
   s:Double;
begin
 nar:=Length(ar);
 s:=0;
 for i:=0 to nar-1 do s:=s+ar[i];
 SredArif:=s/nar;
end;

Или так:

type TipAr=array of Double; 
function SredArif(ar:TipAr;nar:Integer):Double;
var i:Integer;
   s:Double;
begin
 s:=0;
 for i:=0 to nar-1 do s:=s+ar[i];
 SredArif:=s/nar;
end;

Вот ее и используй.

[Kemperh4]

Program m1;
type 
mas=array[1..100] of integer;
var a,b,c,d:mas;
r1,r2,r3,r4:real;
i,n,m,k,l:integer;

Function Kom(x:mas;xn:integer):real;
var xi:integer;
xsum:real;
begin
xsum:=0;
For xi:=1 to xn do
xsum:=xsum+x[xi];
if xn <> 0 then
Kom:=xsum/xn else
Kom:=0;
end;

Function min (r1,r2,r3,r4:real):integer;
var m1:real;nom:integer;
begin
m1:=r1;
nom:=1;
if r2<m1 then begin
m1:=r2;
nom:=2;
end;
if r3<m1 then begin
m1:=r3;
nom:=3;
end;
if r4<m1 then begin
m1:=r4;
nom:=4;
end;
min:=nom;
end;

begin
writeln('Введите количество случайных экспериментальных величин n m k l:');
read(n,m,k,l);

For i:=1 to n do
a[i]:=random(100);

For i:=1 to m do
b[i]:=random(100);

For i:=1 to k do
c[i]:=random(100);

For i:=1 to l do
d[i]:=random(100);

For i:=1 to n do 
write('a[',i,']=',a[i],' ');
writeln;

For i:=1 to m do 
write('b[',i,']=',b[i],' ');
writeln;

For i:=1 to k do 
write('c[',i,']=',c[i],' ');
writeln;

For i:=1 to l do 
write('d[',i,']=',d[i],' ');
writeln;

r1:=Kom(a,n);r2:=Kom(b,m);r3:=Kom(c,k);r4:=Kom(d,l);
writeln('r={',r1:4:3,',',r2:4:3,',',r3:4:3,',',r4:4:3,'}');

write('Наименьшая компонента: r',min(r1,r2,r3,r4));

end.

[fardik]

Спасибо большое!!!

[Kemperh4]

Пользуйся наздоровье