Программирование.Паскаль.Массивы
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;begins:=0;for i:=1 to n dobeginread(p[i]);if(i mod 2=0)and(p[i]0)then beginInc(k1);mac2[k1]:=mac1[i];end;if(mac1[i]