Question

дан массив B,состоящий из 15 элементов значения которого вводятся с клавиатуры. подсчитать сколько элементов массива положителлных и четных 

Answer 1

Program a;
Var Mas : array [1..15] of integer;
b,c,i: integer;
Begin
K:=0;
C:=0;
For i:=1 to 15 do begin
read (Mas[i]);
If (Mas[i]>0) then inc(k);
If ((Mas[i] mod 2)=0) then inc(c);
End;
Writeln('положительных - ',k);
Writeln('четных - ',c);
End.
(паскаль, не компилировал)