Работа с числовыми и символьными массивами

[sssnake13]

Всем доброе время суток, Нужно написать маленькую програмулину на Паскале помогите кто чем может

вот задание:
Имееться одномерный массив A, состоящий из N произвольных чисел, (A(N))
среди которых есть отрицательные, положительные и равные нулю. составить программу, выполняющую задачу: написать сумму элементов, предшествующих максимальному числу.

[fikret123]

const n = 10;
var a: array[1..n] of integer;
i, ind, sum: integer;
begin
 max := a[1];
 sum := 0;
 for i:=2 to n do if a[i]>max then begin max := a[i]; ind:= i; end;
 for i:= 1 to ind do sum:= sum+ a[i];
 /writeln(sum);
end.

[ROMA2PVT]

program mas;
uses crt;
var
A:array [1..100] of integer;
i,max,imx,n,sum:integer;
BEGIN
clrscr;
writeln('Введите количество элементов: ');
readln(n);
randomize;
imx:=1;
for i:=1 to n do
begin
a[i]:=random (12);
write (a[i], ' ');
end;
max:=a[1];
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
 imx:=i;
 end;
writeln;
for i:=1 to n do
begin
iF (max<>a[i]) then
sum:= sum+a[i]
else
break;
end;
writeln(sum);
end.

[sssnake13]

ROMA2PVT, после введения кол-ва элементов прога выходит, так должно быть???(в паскеле вообще не селен)

[ROMA2PVT]

readln;

вставь перед последним

end.

[ROMA2PVT]

а спасибо тебя мама говорить неучила?

[sssnake13]

ROMA2PVT, Огромное вам ЭЛЕКТРОННОЕ СПАСИБО

[ROMA2PVT]

ну вот.эт дгугое дело.не за что.