Массивы

[Maria7]

Сообщение удалено.

[spein]

Uses crt;
const n=25;
var z:array[1..n] of integer;
i,j,k:integer;
x:integer;
begin;
randomize;
for i:=1 to n do
begin
z[i]:=random(51);
write(z[i]:4);
end;
writeln;
writeln;
for i:=1 to n do
if(z[i]> 0) then writeln(z[i], "> 0");
for i:=1 to n do
if(z[i]< 0) then writeln(z[i], "< 0");
end.

Нули просто не выведутся
есть еще сортирование пузырьком. реализация от вики: http://ru.wikipedia.org/wiki/%D0%A1%...BA%D0%BE%D0%BC

[Arhangel7]

дан массив из 20 элементов

в программе 25;

вывести сначала неотрицательные,а потом отрицательные

массив заполняется положительными значениями командой Random;
лучше использовать RandomRange(-10,10);

[Maria7]

Спасибо! Я еще увидела ошибку, что я написала просто "рандом(51)", а нужно было указать, чтобы он начинался с отрицательных чисел

[Maria7]

только хотела сказать, но вы меня опередили