Помогите, с массивом.

[VadimPascal]

Задано массив целых чисел
K [20]. Превратить его по правилу: четные элементы разделить нацело на целую часть среднего арифметического отрицательных элементов.

[Aleksandr H.]

Кроме как через стринг не придумал как получить целую асть среднего.

uses crt;
var
  a : array [1..20] of integer;
  i,bzero:integer;
  avg:real;
  s:string;
begin
clrscr;
randomize;
bzero:=0;
for i:= 1 to 20 do
    begin
         a[i] :=a[i] + random(20)-10;
         write(a[i]:4);
         if a[i]<0 then
            begin
                 avg:=avg+a[i];
                 inc(bzero);
            end;
    end;
if bzero>0 then avg:=avg/bzero;
writeln;
writeln('average below zero ',avg:3:3);
str(avg:3:3,s);
s:=Copy(s,1,pos('.',s)-1);
val(s,bzero,i);
writeln;
for i:=1 to 20 do
begin
     if not odd (a[i]) then a[i] := a[i] mod bzero;
     write(a[i]:4);
end;
readln;
end.

[Serge_Bliznykov]

не придумал как получить целую часть среднего.

в общем случае можно воспользоваться функцией trunc()

но что-то мне подсказывает, что целую часть даст банальное

avg div количество

[Aleksandr H.]

Serge_Bliznykov, да, trunc() выход

uses crt;
var
  a,b : array [1..20] of integer;
  i,bzero,bzero1:integer;
  avg,avg1:real;
  iavg:integer;
  s:string;
begin
clrscr;
randomize;
bzero:=0;
for i:= 1 to 20 do
    begin
         a[i] :=a[i] + random(20)-10;
         write(a[i]:4);
         if a[i]<0 then
            begin
                 avg:=avg+a[i];
                 inc(bzero);
            end;
    end;
b:=a;bzero1:=bzero;
writeln;
writeln('----TRUNC--------');
iavg:=trunc(avg/bzero1);
for i:=1 to 20 do
begin
     if not odd (b[i]) then b[i] := b[i] mod iavg;
     write(b[i]:4);
end;

writeln('----STRING--');
if bzero>0 then avg:=avg/bzero;
str(avg:3:3,s);
s:=Copy(s,1,pos('.',s)-1);
val(s,bzero,i);
for i:=1 to 20 do
begin
     if not odd (a[i]) then a[i] := a[i] mod bzero;
     write(a[i]:4);
end;
readln;
end.

с

avg div количество

чето косячу

[Serge_Bliznykov]

чето косячу

сумму сделайте ЦЕЛОГО типа и всё сработает!

и ещё, в цикле Вы потом элементам делаете mod (остаток от деления),
а надо div (целочисленное деление)

[Aleksandr H.]

Вот смотрю на

нацело на целую

понимаю что надо оперировать парой int-div а всеодно пишу операнды работы "до комы-после комы". сумма Целая - работает.
Ну ведь ТС имеет примеры данных вход-выход и проверит? Или он спросил и сам не знает что хочет? а вдруг мы рандомом выдадим 20 чисел и скажем - вот решение?