Question

Проморите пожалуйста,очень срочно

Answer 1

Ответ:

pascal

Объяснение:

var

 a: array [1..10] of integer;

 i, s: integer;

 sr: real;

begin

 WriteLn('Исходный массив:');

 for i := 1 to 10 do

 begin

   a[i] := 11 - i;

   Write(a[i], ', ');

 end;

 WriteLn;

 WriteLn('Обработанный массив:');

 for i := 1 to 9 do

 begin

   a[i + 1] := a[i];

   Write(a[i], ', ');

   s := s + a[i];

 end;

 Write(a[10]);

 s := s + a[10];

 WriteLn;

 WriteLn('Сумма элементов обработанного массива: ', s);

 sr := s / 10;

 WriteLn('Среднее арифметическое равно: ', sr:4:2);

end.