МАССИВЫ..

[dmdol]

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

[Zhenya-Pvl]

1 сек, щас напишу

[dmdol]

Сообщение от Zhenya-Pvl

1 сек, щас напишу

спасиб дружище жду!

[Zhenya-Pvl]

program Project;

uses
SysUtils;

var h,hi,l,li,sum,i,n:integer;
a,b:array [1..1000] of integer;

begin
n:=15;
for I := 1 to n do
read (a[i]);

h:=a[1]; l:=a[2];
hi:=1; li:=2;
if h<l then
begin
h:=a[2]; hi:=2;
l:=a[1]; li:=1;
end;

for i:=3 to n do
begin
if a[i]>h then
begin
h:=a[i];
hi:=i;
end;
if a[i]<l then
begin
l:=a[i];
li:=i;
end;
end;
writeln ('самый тяжёлый вагон - ',hi,' с массой ',h);
writeln ('самый лёгкий вагон - ',li,' с массой ',l);

//---

for i:=8 to 15 do
b[i-8]:=a[i];
for I := 1 to 8 do
write (b[i]);
writeln;
//сформирован 2 состав

//---

sum:=0;
for i:=1 to 15 do
sum:=sum+a[i];

writeln ('сумма масс вагонов 1-го состава = ',sum);
end.

[Zhenya-Pvl]

если надо - могу прописать var

[dmdol]

Сообщение от Zhenya-Pvl

если надо - могу прописать var

да мужик припиши пожалуйста...

[Zhenya-Pvl]

var h,l,hi,li,i,sum:integer;
a,b:array[1..15] of integer;
begin
for i:=1 to 15 do //ввод массива. Вывод - точно также, только вместо read идёт оператор write.
read(a[i]);
<код, который написан выше>
end.

[dmdol]

Zhenya-Pvl дружище напиши мне теперь всё корректно что мне преподу сдать все вместе как положенно и что бы я ей это в паскале показал

[Zhenya-Pvl]

дай асю, так неудобно писать. зайди в другую твою тему, там я написал

[dmdol]

449993950 вот жду тебя