Написать программу расчета среднего арифметического отрицательных элементов,заменить минимальный элемент в одномерном массиве на средне арифметическое — Pascal(Паскаль)

program hhh;
Uses crt;
 Var x:array [1..100] of real;
     sr,buf,min,s:real;
     n,i,k,j:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write (' Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:4:2,' ');
writeln;
min:=x[1];
for i:=1 to n do
  if x[i]<=min then begin
                    min:=x[i];
                    j:=i;
                    end;
writeln (' minim element = ',min:4:2);
writeln;
s:=0;
k:=0;
for i:=1 to n do begin
                 s:=s+x[i];
                 k:=k+1;
                 end;
sr:=s/k;
writeln (' Srednee.Arifm = ',sr:4:2);
buf:=sr;
x[j]:=buf;
writeln (' OtBeT ');
for i:=1 to n do
write (x[i]:4:2,' ');
readln
end.

Вариант 2

program mass;
uses crt;
type Ar=array[1..100] of real;
var X:Ar; kol,i,k,num:byte; nd,kd:integer; min,sum,sr:real;
begin
clrscr;
writeln(' Vvedite kol-vo elementov:');
readln(kol);
writeln(' Vvedite diapazon generacii:');
readln(nd,kd);
for i:=1 to kol do
x[i]:=nd+random(kd-nd);
writeln(' Poluchen massiv:');
for i:=1 to kol do
write(x[i]:0:2,' ');
readln;
sum:=0;min:=0;sr:=0;k:=0;
for i:=1 to kol do
  begin
  if x[i]<0 then
    begin
    sum:=sum+x[i];
    k:=k+1;
    end;
  if x[i]<min then
    begin
    min:=x[i];
    num:=i;
    end;
  end;
sr:=sum/k;
x[num]:=sr;
writeln(' sr.ar.=',sr:0:2);
writeln(' Min=',min:0:2);
writeln(' Novii mass:');
writeln;
for i:=1 to kol do
write(x[i]:0:2,' ');
readln;
end.

Leave a Comment