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

Uses crt; var mas: array [1… 10] of integer; i,a: integer; beginclrscr; 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 2uses crt; var mas: array [1… 10] of integer; i,a,k: integer; beginclrscr; 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 elsewriteln ('Nulya net'); end.