Задача об особых элементах массива

Помогите пожалуйста с задачей. Попыталась что то сделать, но по-моему получилась фигня.:tehnari_ru_325:
Дан одномерный целочисленный массив А, состоящий из N элементов, N — заданное натуральное число. Элемент Аi (i = 1,2,3, … ,N) назовем особыми, если он больше суммы остальных элементов. Составить одномерный массив В из особых элементов массива А, оканчивающихся на 5. Если таких элементов нет, то выдать соответствующее текстовое сообщение.

У меня вот что вышло:
program Project1;
uses
SysUtils;
type
mas=array [1..1000] of integer;
var
A:mas;
B:array [1..10] of integer;
n,i,s,j: integer;
begin
n<2;
writeln('vvedite chislo n');
readln;
writeln;
randomize;
for i:= 1 to 10 do
begin
A:=random(25);
writeln(A,' ');
end;
writeln;
for i:= 1 to n do
begin
S:=0;
s:=s+A;
b[j]:=s;
if A>(S-A) then
begin
if s=0 then
writeln (' Takih elementov net')
else
writeln(B[j]);
end;
end;
readln;
readln;
end.

SayanaFelias написал(а):

Помогите пожалуйста с задачей. Попыталась что то сделать, но по-моему получилась фигня.

Нажмите для раскрытия...

Ну... не без этого. Вот, например:

uses
SysUtils;

Нажмите для раскрытия...

Зачем?

n<2;

Нажмите для раскрытия...

Что за ахинея? Мы с Паскалем таких операторов не знаем.
Теперь еще два слова по сути задачи. Вот Вы задаете

A:=random(25);

Нажмите для раскрытия...

, но дело в том, что если все члены массива положительны, как у Вас, то особых может быть МАКСИМУМ один. Не более. Поэтому массив целесообразно сделать переменным по знаку, и причем, в силу условия оканчивания особых на 5, диапазон взять пошире. И n задавать не менее 200-300. Иначе будет сплошное Takih elementov net.
Вот отлаженная программа:

Код:

program Project1;
var
 A,B:array [1..1000] of integer;
 n,i,s,j: integer;
begin
 write('vvedite chislo n ');
 readln(n);
 writeln;
 randomize;
 for i:= 1 to n do
  begin
   A[i]:=50-random(101);
   write(A[i],' ');
  end;
 writeln;
 S:=0;
 For i:= 1 to n do
  S:=S+A[i];
 j:=0;
 For i:=1 to n do
  begin
   if (A[i]>(S-A[i])) and ((A[i] mod 10)=5) then
    begin
     j:=j+1;
     B[j]:=A[i];
    end;
  end;
 writeln;
 If j=0 then
  writeln (' Takih elementov net')
 else
 For i:=1 to j do
  write(B[i],' ');
 readln;
end.