Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов.
через паскаль
Не сложными циклами
Для 8 класса
через паскаль
Не сложными циклами
Для 8 класса
More Questions From This User See All
Answers & Comments
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.