Безотлагательно PascalABC!!!!!!!!! Дан одномерный массив A. Отсортировать по убыванию, отыскать среднее

Безотлагательно PascalABC!!!!!!!!! Дан одномерный массив A. Отсортировать по убыванию, отыскать среднее арифметическое положительных частей

Задать свой вопрос
1 ответ

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]lt;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] gt; 0) then s:=s+a[i];


 s:=s/n;


 writeln('');


 writeln(s);


End.

Альбина Поселяничева
Спасибо)))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт