одномерные массивы(((

[Катya]

Помогите пожалуйста,ничего не понимаю.очень нужна программа в паскале и блок схема.завал полный(((((((пожалуйста,помогите!!! (((


Даны сведения о массах вагонов состава=массив А[15]
1)Определить самый тяжёлый вагон состава , его порядковый номер, самый лёгкий вагон состава, его порядковый номер
2)Сформировать новый состав из последних 8-ми вагонов -массив В[8]
3)Определить общую массу вагонов в массиве B
4) Определить общую массу вагонов в массиве A

[IT-man]

{Даны сведения о массах вагонов состава=массив А[15]
1)Определить самый тяжёлый вагон состава , его порядковый номер, самый лёгкий вагон состава, его порядковый номер
2)Сформировать новый состав из последних 8-ми вагонов -массив В[8]
3)Определить общую массу вагонов в массиве B
4) Определить общую массу вагонов в массиве A}
program xpeHb;
var a:array[1..15] of integer;
    b:array[1..8] of integer;
  var i,imin,imax:integer;
  s,s1:integer;
begin
s:=0;
for i:=1 to 15 do begin
readln(a[i]);s:=s+a[i];end;
imin:=1;imax:=1;
for i:=1 to 15 do
begin
if a[i]>a[imax] then imax:=i;
if a[i]<a[imin] then imin:=i;
end;
s1:=0;
for i:=8 to 15 do begin
b[i-7]:=a[i]; s1:=s1+a[i]; end;
writeln('max N',imax,'=',a[imax]);
writeln('min N',imin,'=',a[imin]);
writeln('MaccuB B');
for i:=1 to 8 do write(b[i]:7);
writeln;
writeln('Total A:',s);
writeln('Total B:',s1);
readln;
end.

[Катya]

ОГРОМНОЕ СПАСИБО!!!!!