Дан массив. Вывести ** экран сначала его неотрицательные элементы, затем отрицательные.

Question

Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные.

Answer 1

Var m:array[1..100] of integer;
             i,n:integer;
begin 
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ')<span>;
end.            

Answer 2

Var m:array[1..100] of integer;
             i,n:integer;
begin 
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ')<span>;
end.