СРОЧНО!!!!!!!ABC Pascal!!!!!!Дан одномерный массив А. Отсортировать массив по убыванию,

Безотлагательно!!!!!!!ABC Pascal!!!!!!
Дан одномерный массив А. Отсортировать массив по убыванию, отыскать количество отрицательных элементов массива, стоящих на четных местах

Задать свой вопрос
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], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] lt; 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.

Юра Фруштатов
Громадное спасибо
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт