Из заданного целого ряда чисел размерности N получить новый ряд, состоящий из отрицательных членов ряда, кратных 5 ( Паскаль )

[ВикторИО]

нужно написать срочно прогу на массивы, прошу помощи!!

Из заданного целого ряда чисел размерности N получить новый ряд, состоящий из отрицательных членов заданного ряда кратных 5. Упорядочить новый ряд в порядке убывания его членов.

[Poma][a]

прошу помощи!!

Помощь <> сделайте всё за меня!!

Покажите свои наработки

[Stilet]

Почему же не помочь? На паскале?
Пожалуйста:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;

{ TMyApplication }

procedure TMyApplication.DoRun;
const n=15;
var
  ErrorMsg: String;
  a,b:Array of integer;
  i,k,j:integer;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;

  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;

  { add your program here }
  randomize;
  // Задаем исходный массив
  SetLength(a,n);
  for i:=low(a) to high(a) do begin
    a[i]:=random(100)-80;
    // Формируем второй массив если элемент отвечает условию
    if (a[i]<0)and((a[i] mod 5)=0) then begin
     SetLength(b,Length(b)+1);
     b[high(b)]:=a[i];
    end;
    write(a[i]:5);
  end; writeln;
  // Сортируем
  for i:=low(b) to high(b) do
   for j:=low(b) to high(b) do
     if b[i]>b[j] then begin k:=b[i];b[i]:=b[j];b[j]:=k;end;
  // Выводим
  for i:=low(b) to high(b) do write(b[i]:5);
  readln;
  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.

[ВикторИО]

мне кажется, или слишком объёмно? хD

[Poma][a]

Кажется......

[ВикторИО]

смогёте попроще и поменьше, надеюсь не прошу невозможного)

[Leshii]

Вот вариант поменьше.
Там только пару моментов добавить осталось

{ add your program here }
  randomize;
  // Задаем исходный массив
  SetLength(a,n);
  for i:=low(a) to high(a) do begin
    a[i]:=random(100)-80;
    // Формируем второй массив если элемент отвечает условию
    if (a[i]<0)and((a[i] mod 5)=0) then begin
     SetLength(b,Length(b)+1);
     b[high(b)]:=a[i];
    end;
    write(a[i]:5);
  end; writeln;
  // Сортируем
  for i:=low(b) to high(b) do
   for j:=low(b) to high(b) do
     if b[i]>b[j] then begin k:=b[i];b[i]:=b[j];b[j]:=k;end;
  // Выводим
  for i:=low(b) to high(b) do write(b[i]:5);
  readln;
  // stop program loop
  Terminate;
end;

[Stilet]

попроще и поменьше

Врядли для решения этого задания проще получится...

[ВикторИО]

не, упрощённая версия не работает, т.к. это просто скопированная часть кода из полной программы)))

[Stilet]

т.к. это просто скопированная часть кода

Так допиши секцию var и begin end