Программирование. Паскаль. Массивы

1) Дан массив Р (15). Найти сумму всех отрицательных элементов с четными индексами. Полученный результат вывести на экран.

2) Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные, в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1, МАС2, МАС3

Program chik;

const n=15;

var P:array[1 ... 15]of real;

i:integer;

s:real;

begin

s:=0;

for i:=1 to n do

begin

read (p[i]) ;

if (i mod 2=0) and (p[i]<0) then s:=s+p[i];

end;

writeln (s) ;

end.

2)

program gt;

uses crt, graphabc;

const n=7;

var mac1, mac2, mac3:array[1 ... 15]of real;

i, k1, k2:integer;

begin

k1:=0; k2:=0;

for i:=1 to n do

begin

read (mac1[i]) ;

if (mac1[i]>0) then begin

Inc (k1) ;

mac2[k1]:=mac1[i];

end;

if (mac1[i]<0) then begin

Inc (k2) ;

mac3[k2]:=mac1[i];

end;

end;

for i:=1 to n do

write (mac1[i],' ') ;

writeln;

for i:=1 to k1 do

write (mac2[i],' ') ;

writeln;

for i:=1 to k2 do

write (mac3[i],' ') ;

end.