Удаление, сортировка элементов массива.

[Vadim123456]

1. Дан одномерный массив, размерность которого произвольна и заполенный случайным образом. Удалить все отрицательные элементы массива.

Program gg;
Uses crt;
Var
a:array [1..100] of integer;
i,k,n:integer;
Begin
Clrscr;
Randomize;
Write('Vvedite kol-vo elementov=');
Readln(N);
k:=0;
For i:=1 to n do
Begin
a[i]:=-50 +random(180);
Write(a[i]:5);
End;
Writeln;
For i:=1 to n do
If a[i]>=k then write(a[i]:5);
Readln;
End.

2. Дан массив A(20), заполненный случайным образом. Упорядочить данный массив: 1) по убыванию; 2) по невозрастанию (каждый последующий элемент должен быть меньше или равен предыдущему).


Второй номер у меня не получается сделать. Помогите пожалуйста.

[sllh_111]

2. Дан массив A(20), заполненный случайным образом. Упорядочить данный массив: 1) по убыванию; 2) по невозрастанию (каждый последующий элемент должен быть меньше или равен предыдущему).

сделал тока 2), ну а по убыванию сам додумаешься!

program А20;
   uses crt;
   const n=20;
   Var i,a,b,c,d:integer;
   mas:array [1..n] of integer;
   begin
   clrscr;
randomize;
for i:=1 to n do
begin
mas[i]:=random(25);
write(mas[i]:3);
end;
writeln;
for b:=1 to n do
begin
for i:=1 to n do
begin
  if mas[i-1]<mas[i] then begin a:=mas[i-1];mas[i-1]:=mas[i]; mas[i]:=a;
end;
end;
end;
writeln;
for i:=1 to n do write(mas[i]:3);
readln;
end.

program А20;
uses crt;
const n=20;
var i,a,b,c,d:integer;
    mas:array [1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  mas[i]:=random(25);
  write(mas[i]:3);
  end;
writeln;
for b:=1 to n do
  begin
  for i:=1 to n do
    begin
    if mas[i-1]<mas[i] then 
      begin 
      a:=mas[i-1];
      mas[i-1]:=mas[i];
      mas[i]:=a;
      end;
    end;
  end;
writeln;
for i:=1 to n do 
  write(mas[i]:3);
readln;
end.

[Vadim123456]

Если честно не очень понял. Какая из них к данному заданию? Вторая или первая программа?

[sllh_111]

1 и 2
Два разных алгоритма. Бери тот, что по душе.

[Vadim123456]

Но я проверяю и обе не совсем правельно работают. Т.к. он не выводит наибольшего а остальные все вроде правильно выводит.

[sllh_111]

Сообщение от Vadim123456

Но я проверяю и обе не совсем правельно работают. Т.к. он не выводит наибольшего а остальные все вроде правильно выводит.

а он должен?

[Vadim123456]

Ну вроде да. Там же по убыванию. Значит например дано: 6, 9, 60, 10.
У тебя он выводит: 10, 9, 6.
А должен наверно: 60, 10, 9, 6.

[sllh_111]

Проверь еще раз.
60 он тебе точно не выведет, там только до 24.
сейчас на 2 проге проверял, всё работает, все выводит.

[Базиля]

держи код

program zad1;
type mas=array[1..20] of integer;
var     j,i,p:integer;
     a:mas;
     begin
     randomize;
     writeln('исходный массив :');
     for i:=1 to 20 do
     begin
     a[i]:=random(99);
     write(a[i],'  ');
     end;
     writeln;
     writeln('массив упорядоченный по возрастанию');
     for j:=1 to 20 do
     for i:=1 to 19 do
     if a[i]>a[i+1] then
     begin
     p:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=p;
     end;
     for i:=1 to 20 do
     write(a[i],'  ');
     for j:=1 to 20 do
     for i:=1to 19 do
     if a[i]<a[i+1] then
     begin
     p:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=p;
     end;
     writeln;
     writeln('массив упорядченный по убыванию');
     for i:=1 to 20 do
     write(a[i],'  ');
     end.

теперь вопрос к товарищу sllh_111

mas[i-1]

задав i от 1 до n, как вы можете обратиться к 0 элементу которого просто не существует? Выход за границы массива Поэтому цикл нужно задать от 2