дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!

2

Ответы и объяснения

2013-12-08T19:39:34+04:00
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);
end.
  • Sky09
  • профессор
2013-12-08T21:37:47+04:00
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);
end.
В зависимости от раpмерности менять константу Z