Иснова я, и снова мой любимый паскаль.. дан массив, состоящий из целых чисел. напишите программу, которая подсчитывает количество положительных чисел среди элементов массива. входные данные сначала задано число n — количество элементов в массиве (1 выходные данные необходимо единственное число - количество положительных элементов в массиве. написал: program u1; var i,n,k: longint; a: array[1..10000] of longint; begin readln(n); for i: =1 to n do readln (a[i]); for i: = 1 to n do write( 'a[i]=',a[i],' '); writeln; for i: = 1 to n do begin if a[i]> 0 then k: =k+1; end; writeln(k); end. но тем не менее, решено не правильно. , посмотрите.