profile
Опубликовано 4 года назад по предмету Информатика от Lera2015

Задача по паскалю тип integer 
каких элементов в массиве больше положительных или отрицательных

  1. Ответ
    Ответ дан HRAshton
    var a: array [0..9] of integer;
        i, j: integer;
    begin
         write('     ');
         for i := 0 to 9 do
         begin
              a[i] := random(51) - 25;
              writeln('[', i, '] => ', a[i]);
         end;
              for i := 0 to 9 do
         if (a[i] < 0) then 
           dec(j)
         else
             if (a[i] > 0) then
                inc(j);
         if (j > 0) then writeln('+ > -');
         if (j = 0) then writeln('+ = -');
         if (j < 0) then writeln('+ < -');
    end.