Предмет: Информатика, автор: 123325736

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


restIess: вам уже несколько раз это задание делали, что не так то?

Ответы

Автор ответа: sanekharchuk181002
0

uses crt;

const nmax=20;

var a,b:array[1..nmax] of integer;

   i,j,n:integer;

begin

clrscr;

 repeat

  write('n=');

   readln(n);

 until n in [1..nmax];

writeln('Ìàññèâ :');

for i:=1 to n do

 begin

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

   write(a[i]:4);

 end;

j:=1;

for i:=1 to n do

 begin

  if a[i]>0 then

   begin

    b[j]:=a[i];

    inc(j);

   end;

 end;

for i:=1 to n do

 begin

  if a[i]<=0 then

   begin

    b[j]:=a[i];

    inc(j);

   end;

 end;

writeln;

writeln('Íîâûé ìàññèâ :');

 for i:=1 to n do

  write(b[i]:4);

readkey;

end.

Похожие вопросы
Предмет: Английский язык, автор: никита1767