В одномерном целочисленном массиве из 10 элементов

1. Найдите количество отрицательных элементов с четными номерами.

2. Найдите произведение элементов, стоящих после 0. Массив нулем не заканчивается.

В Pascal

Uses crt;

var mas: array [1 ... 10] of integer;

i, a: integer;

begin

clrscr;

writeln ('Input massive') ;

a:=0;

for i:=1 to 10 do

begin

readln (mas[i]) ;

if (i mod 2 = 0) and (mas[i] < 0) then a:=a+1;

end;

writeln ('Answer ', a) ;

end.

number 2

uses crt;

var mas: array [1 ... 10] of integer;

i, a, k: integer;

begin

clrscr;

writeln ('Input massive') ;

for i:=1 to 10 do

readln (mas[i]) ;

i:=1;

while (mas[i]0) and (i<10) do

i:=i+1;

k:=1;

if i < 10 then

begin

for a:=i to 10 do

k:=k*mas[a];

writeln (k) ;

end else

writeln ('Nulya net') ;

end.