Question

ДАЮ 60 БАЛЛОВ
Массив а(25) – целые случайные числа от -20 да 40. Задать и вывести исходный массив. Отсортировать массив по убыванию. Вывести отсортированный массив. Найти номер первого отрицательного элемента.

Answer 1

Ответ:

Объяснение:

const n=25;

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

   i,j,b,otr:integer;

begin

 randomize;

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

 for i:=1 to n do

 begin

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

   write(a[i]:4);

 end;

 for i:=1 to n do

 begin

   if a[i]<0 then

     begin

       otr:=a[i];

       break;

     end;

 end;

 writeln(#10,'Первое отрицательное = ',otr);

 for i:=1 to n-1 do

   for j:=i+1 to n do

     if a[i]<a[j] then

       begin

         b:=a[i];

         a[i]:=a[j];

         a[j]:=b;

       end;  

 writeln('Результат сортировки:');

 for i:=1 to n do

 begin

   write(a[i]:4);

 end;  

end.