Question

В среде программирования Pascal создайте массив A из 10 целых чисел, принадлежащих полуинтервалу [-40; 55]. Выведите полученный массив на экран. На следующей строке выведите массив, отсортированный по невозрастанию. На строке ниже, подсчитайте и выведите количество отрицательных элементов массива. (Итого три строки должно быть выведено на экран)

Answer 1

Программа:

Pascal:

const N= 10;

var arr: array[1..N] of integer;

 otr, i, j, tmp: integer;

begin

 for i := 1 to 10 do arr[i] := random(-40, 55);

 writeln(arr);

 for i := 1 to N - 1 do

   for j := i + 1 to N do

     if arr[i] < arr[j] then begin

       tmp := arr[i];

       arr[i] := arr[j];

       arr[j] := tmp;

     end;

 writeln(arr);

 for i := 1 to N do

   if arr[i] < 0 then inc(otr);

 writeln(otr);

end.