Дан массив А(6). Определите количество положительных элементов.

DIM A(6)RANDOMIZE TIMERFOR I = 1 TO 6    A(I) = INT(RND * 20) - 10    IF A(I) > 0 THEN S = S + 1    PRINT A(I); " ";NEXT IPRINTPRINT "S="; SНовый паскаль АВСvar   a:array[1..6]of integer;   i,s:integer;begin  for i:=1 to 6 do    begin    a[i]:=random(-10,10);    if a[i]>0 then s:=s+1;    write(a[i],' ')    end;writeln;writeln('Количество положительных: ',s)end.Старый паскаль АВСvar   a:array[1..6]of integer;   i,s:integer;begin  for i:=1 to 6 do    begin    a[i]:=random(20)-10;    if a[i]>0 then s:=s+1;    write(a[i],' ')    end;writeln;writeln('Количество положительных: ',s)end.