Паскаль. Одномерные массивы.

[Kati]

Задание:
ksr *psr, если mi>0
yi = (kmin+pi), если mi<0
|pi*kmin|, если mi=0
ksr, psr – средние значения массивов, kmin – минимальное значение массива, |х| - абсолютная величина числа, оператор ABS.

Листинг:

uses crt;
const
n=100
max_r=100+1;
var
k,p,m:array[1..n] of  integer;
y:array[1..n] of real;
i,imax,n, kmax,kmin,pmax,pmin:integer;
ksr,psr, psum,ksum:real;
begin 
clrscr;
for i:=1 to n do k[i]:=random(max_r);
ksum:=0;
kmax:=k[1];
kmin:=k[1];
for  i:=1 to n do 
 begin 
  ksum := ksum +k[i];
   if k[i]<kmin then kmin:=k[i]
     else  if k[i]>kmax then 
           kmax:=k[i];
ksr:=ksum/n;
end;

for i:=1 to n do p[i]:=random(max_r);
psum:=0;
pmax:=k[1];
pmin:=k[1];
for  i:=1 to n do 
 begin 
  psum := psum +p[i];
   if p[i]<pmin then pmin:=p[i]
     else  if p[i]>pmax then 
           pmax:=p[i];
psr:=psum/n;
end;

for i:=1 to n do m[i]:=random(max_r);
  imax:=length(m[i]);
   for i:=1 to imax
       begin 
if  m[i]>0 then y[i]:=ksr+psr;
if  m[i]<0 then y[i]:=kmin+p[i];
if m[i]=0 then y[i]:=abs(p[i]*kmin);
end;
writeln(y[i]);
end.

Прошу помочь найти ошибки.

[bablzz]

uses crt;
const
n=100;
max_r=200;
var

k,p,m:array[1..n] of  integer;
y:array[1..n] of real;
i, imax,kmax,kmin,pmax,pmin:integer;
ksr,psr,psum,ksum:real;

procedure InMas(var a:array[1..n] of integer);
var
   i:integer;
begin
     for i:=1 to n do a[i]:=random(max_r)-100;
end;

begin
clrscr;
Randomize;

InMas(k);
InMas(p);
InMas(m);


ksum:=0;
kmax:=k[1];
kmin:=k[1];

for  i:=1 to n do
 begin
  ksum := ksum +k[i];
   if k[i]<kmin then kmin:=k[i]
     else  if k[i]>kmax then
           kmax:=k[i];
ksr:=ksum/n;
end;

psum:=0;
pmax:=k[1];
pmin:=k[1];

for  i:=1 to n do
 begin
  psum := psum +p[i];
   if p[i]<pmin then pmin:=p[i]
     else  if p[i]>pmax then
           pmax:=p[i];
psr:=psum/n;
end;

writeln('ksr=', ksr,'  psr=', psr);

for i:=1 to n do
   begin
if  m[i]>0 then y[i]:=ksr+psr;
if  m[i]<0 then y[i]:=kmin+p[i];
if m[i]=0 then y[i]:=abs(p[i]*kmin);
   end;

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

for i:=1 to n do  write(y[i],' ');

end.

Твои нахождения макс, мин значений я не проверял

[taniushska]

А здесь какие ошибки for i:=1 to n do k[i]:=random(max_r);
ksum:=0;
kmax:=k[1];
kmin:=k[1];
for i:=1 to n do
begin
ksum := ksum +k[i];

[bablzz]

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

А здесь какие ошибки for i:=1 to n do k[i]:=random(max_r);
ksum:=0;
kmax:=k[1];
kmin:=k[1];
for i:=1 to n do
begin
ksum := ksum +k[i];

Это вопрос?