Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Задан числовой массив, состоящий из 11 элементов. Увеличьте все элементы данного массив, значения которых больше среднего арифметической всех элементов массива на 40 и выведите все элементы на экран. Паскаль

Ответ оставил Гость

Вот решение задачи:


uses Crt;
const n=11;
type Mas = array [1..n] of real;
var  A: Mas;
     i: integer;
     Sum, Sred: real;
begin
ClrScr;

Sum:=0;
for i:=1 to n do
  begin
      A[i]:= 100+random(1000)/27;
      Sum:=Sum+A[i];
  end;
Sred:=Sum/n;
WriteLn (Old Massiv:  );
for i:=1 to n do
      Write (A[i]:6:2,    );

WriteLn; WriteLn;
WriteLn (Sred = , Sred:6:2);
WriteLn;
WriteLn (New Massiv:  );
for i:=1 to n do
  begin
      if A[i]>Sred then A[i]:=A[i]+40;
      Write (A[i]:6:2,    );
  end;
WriteLn;

 ReadLn;
 end.