Question

Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов.
через паскаль

Answer 1

Ответ:

pascalABC

Объяснение:

var

 a: array of integer;

 i, j, n, k: integer;

begin

 Write('Введите размер массива: '); ReadLn(n);

 SetLength(a, n);

 Randomize();

 for i := 0 to n - 1 do begin

   a[i] := random(201) - 100;

   if a[i] > 0 then inc(k);

 end;

 for i := 0 to n - 2 do begin

   if a[i] > 0 then continue;

   for j := i + 1 to n - 1 do begin

     if a[j] > 0 then begin

       swap(a[i], a[j]);  //перестановка элементов местами

       break;

     end;  

   end;

 end;

 for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;

 WriteLn('В массиве ', k, ' положительных элементов.');

end.