Как написать программу которая определяет среднее арифметическое положительных чисел информатика. через int main​

var  i: integer;   a: array [1..15] of integer;

begin  write('исходный массив: ');   for i: = 1 to 15 do //формируем и распечатываем массив  begin    a[i]: = random(8);       write(a[i],' ');   end;   writeln; //перевод на новую строку  write('преобразованный массив: ');   for i: = 1 to 15 do  begin    if a[i] mod 2 = 0 then a[i]: = a[i] + 1 {если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}    else a[i]: = a[i] * 2;     write(a[i], ' ');   end;   writeln; {перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}end.

отметь решение, как лучшее )

1 первым здоровается тот, кто входит в помещение. при знакомстве и представлении будет уместна корректная, сдержанная улыбка. если людей представляет кто-то третий, знакомство идет по очереди.

2крайне некультурно говорить о третьем лице, используя безымянные местоимения или обобщающие наименования - «он», «она», «женщина», «мужчина», «человек», «эй».

3при встрече со знакомыми и даже малознакомыми людьми принято доброжелательно здороваться, невнятное бурчание под нос воспринимается хуже, чем отсутствие .

4   вступать в спор по пустякам, высмеивать чужое мнение и сыпать оскорбительными остротами и колкостями в адрес других - признаки дурного тона.

5   входя в помещение, мужчина должен снять головной убор, женщина может оставаться в шляпе. не принято входить без стука, с незатушенной сигаретой. мужчина всегда пропускает женщину вперед. в этом правиле есть исключения - первым из лифта, машины, других транспортных средств выходит мужчина и подаёт женщине руку, даже незнакомой.