Сортировка элементов массива, Плиз... Помогите люди добрые!!! Опции

[Militium]

Тянула до последнего, сдавать завтра... Помогите решить, сама две задачки сделала, надо еще три, а голова неварит

Упорядочить элементы массива по убыванию - я даун

Отсортировать массив следующим образом: сначала все нулевые элементы, затем отрицательные и потом все положительные. - хоть убей....

Пусть даны числа R1, R2, R3 ... R17, среди которых есть как отрицательные, так и неотрицательные(положительные и нули). Получить x1*y1+x1*y2+...+x17*y17, где где x - отрицательные числа, в зятые в порядке их следования, y - неотрицательный, взятые в обратном порядке. - ваще улет...

[Militium]

Первую то решила щас, а вот вторую немогу найти, и с третей трабл... <censored>короче

М

А вот ругаться не надо

Добавлено через 9 мин.
Учту)))


Вот, вторая, но там точно что-то неправильно, не подскажите что???

program r;
var a:array [1..10] of integer; j, y, k: integer; f : char;
Begin
for j:=1 to 10 do begin
readln (a[j]);
end;
k:=1; y:=10;
for j:=1 to 10 do begin
if a[j]=0 then begin a[j]:=a[k]; k:=k+1; end;
if a[j]>0 then begin a[j]:=a[y]; y:=y-1; end;
end;
for j:=1 to 10 do begin
write (a[j]:3);
end;
readln (f);
end. 

Сообщение отредактировано: klem4 - 20.05.2007 22:54