массивы, памогите понять массивы Опции

[maksimla]

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

type masyvas = array [1..5] of integer;
var mas: masyvas;
i, k: integer;

мне надо узнать чему будет равняется mas[4] выполнив такое

a) for i := 1 to 5 do
mas[i] := i;
b) k := 15;
for i := 1 to 5 do
mas[i] := k + i;
c) for i := 5 downto 1 do
mas[i] := i;
d) k := 1;
for i := 10 to 14 do
begin
mas[k] := i;
k := k + 1
end;

а мои ответы вот
a)4
b)19
c)2
d)6
правильна
а попоже исче выложу что я нипонял

[maksimla]

задачу решите пожалста .
сделаите програмку
если выстрелить N раз. если попадет премия 2 дополнительных патрона. в фаиле tiras.txt в первай строчке написана число N. В других N строчках вписан ноль (0) если непопал, а если попал (1). если выстрел был удачный в этойже строчке о дополнителных точности выстрела.
пример
5 семь выстрлов удачных
0
1 0 0
1 1 0 0 0
0
1 0 1 1 1 0 0 0 0
напишите программу каторая в фаил taikyk.txt написала скока выстрелов удачных.
в программе нельзя применять eoln и eof функций вместо их пишите циклы.


следущая задача
радился у отца сын и он решил откладывать деньги на свадьбу сына. первичные данные считываются с файла Pinigai.txt. В первой строчке напишите на угад когда сын женится натуральное число. скоко он будет лет собирать.
каждый год откладывает деньги.
пример
18
100
100
100
150
200
68
300
100
300
500
20
30
38
80
90
30
100
1000
вот ответ 3306
напишите программу скока денег собрал в фаил Ves.txt.
вот сделал сам
правильна

program vestuves;
var n,
a,b, i: integer;
pradDuom,
rezult: text;
begin
assign (pradDuom, 'Pinigai.TXT');
assign (rezult, 'Vest.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n);
for i := 1 to n do
begin
read (pradDuom, a);
b := b + a;
end;
write (rezult, b);
close (pradDuom);
close (rezult)
end.

и последняя задача
акций курс постоянна меняется. акции лутше покупать когда они дешевые а продавать когда дорогие.
первичные данные - курс акций в первый день года и их изменение в массиве в каторам указываем на скока поднялась акция по сравнению с прошлым днем (от 2 до 365 года дней ).
напишите
а) идеи решения
б) процедуру , результатам было бы два числа
1 кагда акция наивыгодней покупать
2 кагда акцию выгодней продать.
пример 1 дне года акция была 155,5 а потом минялась так :
Metų diena 2 3 4 5 6 7 8 9 10 11 12 13 14
Akcijų kurso pokytis 2 0,5 –1 1,5 –2 –3 –1,5 1 1,5 0,5 6 –0,5 0
значит наивыгодней покупать акции 8 дня , а продать 12 дня.
первичные данные вводите в один массив каторый написан так
Код
const MAX = 365
type Tpokytis = array [1..MAX] of real;

первичных данных массив назовите pokytis
а резултаты переменных назовите dPirkti и dParduoti.
зделайте программу.