Массив. Паскаль

[Safary]

Дан одномерный массив, надо найти кол-во элементов равных нулю и сумму элементов после минимального, и упорядочить по возрастанию.
Вот мой код, не могу найти ошибку, а компилятор ругается( Помогите, пожалуйста.

const n=10;
type a=array[1..n] of real;
var i,nol,imin,j,sum,m:integer;
begin
nol:=0;
sum:=0;
writeln('Vvedite', n, ' elementi massiva ');
for i:=1 to n do read( a[i]);
for i:=1 to n do
  if a[i]=0 then nol:=nol+1;
writeln('Kolichestvo elementov ravnih 0 ', nol);
imin:=a[1];
for i:=2 to n do
  if a[i]<imin then imin:=a[i];
writelen('Minimalnii element ',imin);
for i:=imin+1 to n do begin
  sum+:=a[i];
  end;
writeln('Summa posle minimalnogo ',sum);
for i:= 1 to n-1 do begin
  imin:=i;
  for j:=i+1 to n do
    if a[j]<a[imin] then imin:=j;
    m:=a[i];
    a[i]:=a[imin];
    a[imin]:=m;
  end;
writeln('Uporyadochnii massiv: ');
for i:=1 to n do write(a[i]);

end.

[alex_fcsm]

Разбирайтесь

const n=10;

var i,nol,j,imin:integer;
    sum,m:real;
    a:array[1..n] of real;

begin
nol:=0;
sum:=0;
writeln('Vvedite', n, ' elementi massiva ');
for i:=1 to n do read(a[i]);
for i:=1 to n do
  if a[i]=0 then nol:=nol+1;
writeln('Kolichestvo elementov ravnih 0 ', nol);
imin:=1;
for i:=2 to n do
  if a[i]<a[imin] then imin:=i;
writeln('Minimalnii element ',imin);
sum:=0;
for i:=imin+1 to n do begin
  sum:=sum+a[i];
  end;
writeln('Summa posle minimalnogo ',sum:3:1);
for i:= 1 to n-1 do begin
  imin:=i;
  for j:=i+1 to n do
    if a[j]<a[imin] then imin:=j;
    m:=a[i];
    a[i]:=a[imin];
    a[imin]:=m;
  end;
writeln('Uporyadochnii massiv: ');
for i:=1 to n do write(a[i]:4:1);

end.

[Sasha_Smirnov]

У! Порядочный код!
А название программы в нём присутствует вообще?..
К сожалению, мне не на чем проверить. Но мой интерпретатор бэйсик ругнулся бы на пробел после открывающей скобки:

read( a[i]);

а так вроде всё прилично.

[Safary]

Спасибо большое, не подскажите, из каких соображений вы выделили под sum 3:1 памяти и под a[i] 4:1, просто не могу понять этого, это обязательно выделять память?

[alex_fcsm]

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

Спасибо большое, не подскажите, из каких соображений вы выделили под sum 3:1 памяти и под a[i] 4:1, просто не могу понять этого, это обязательно выделять память?

Мы о Pascal говорим? writeln(sum:3:1)
После каждого выражения, вы можете добавить опции форматирования:

:width ширина поля для строк + чисел
: precision десятичные цифры для чисел

Попробуйте написать writeln(sum) и сразу все поймете

[Safary]

Поняла))) Спасибо)