Uses crt; const Z=5; var a:array [1..Z] of real; x,k,n:integer; begin for x:=1 to Z do begin readln(a[x]); if (x mod 2=1) and (a[x]>0) then inc(k); if (x mod 2=1) and (a[x]<0) then inc(n); end; writeln('Положительных: ',k); writeln('Отрицательных: ',n); <span>end.</span>
var k, sum, n, i: integer; A: array of integer; begin writeln('Введите размерность массива: '); readln(n); SetLength(A, n + 1); writeln('Введите ', n, ' элементов массива :'); for i := 1 to n do begin readln(A[i]); if i mod 2 <> 0 then begin if A[i] > 0 then inc(sum); if A[i] < 0 then inc(k); end; end; writeln('Кол-во положительных чисел, стоящих на нечетных местах: ', sum); writeln('Кол-во отрицательных чисел, стоящих на нечетных местах: ', k); <span>end.</span>