ОЧЕНЬ СРОЧНО, ПЛИЗ. а)Упорядочить элементы одномерного массива А(10) произвольных чисел...

Question

ОЧЕНЬ СРОЧНО, ПЛИЗ.

а)Упорядочить элементы одномерного массива А(10) произвольных чисел по возрастанию их значений.

б) В одномерном массиве произвольных чисел А(10) вычислить среднее арифметическое значение квадратов положительных элементов.

Answer 1

var
i,j: integer;
x: real;
a : array [1..10] of real;
begin
for i := 1 to 10 do read (a[i]);
for i := 2 to 10 do
begin
for j := 10 downto i do
if a[j-1]>a[j] then
begin
x := a[j-1];
a[j-1] := a[j];
a[j] := x;
end;
end;
for i := 1 to 10 do write (a[i], ' ');
end;

 

var

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

  i, c, sum : integer;

begin

  for i := 1 to 10 do read (a[i]);

  c := 0; sum := 0;

  for i := 1 to 10 do

    if a[i] > 0 then

    begin

      inc (c);

      inc (sum, sqr (a[i]));

    end;

  writeln (sum / c);

end.