Дан одномерный массив a. отсортировать по убыванию, найти среднее арифметическое положительных элементов

СнежаночкаФил СнежаночкаФил    1   04.10.2019 05:40    4

Ответы
emv63756 emv63756  11.08.2020 12:27

Program fantscrin;


 const n = 10;  

 Var a: array [1..n] of integer;


     i,j,k:integer; s:real;


Begin


 for i:=1 to n do


   a[i]:=random(20)-10;


 for i:=1 to n do


   write(a[i], '  ');


 


 for i:=1 to n do


   for j:=1 to n-1 do


     if (a[j]<a[j+1]) then


                      begin


                       k:=a[j];


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


                       a[j+1]:=k;


                      end;


 


 writeln('');


 for i:=1 to n do


   write(a[i], '  ');


 for i:=1 to n do


   if (a[i] > 0) then s:=s+a[i];


 s:=s/n;


 writeln('');


 writeln(s);


End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика