Форум программистов [Powered by Invision Power Board]

Код

program For_arc12;
var
    A:array[1..10] of real; { Создаём вещественный массив  }
    Otriz, Polo, Null, I:byte; 
begin
Otriz := 0; { Инициализация счётчика отрицательных чисел }
Polo := 0; {Инициализация счётчика положительных чисел }
Null := 0;{ Инициализация счётчика нулевых чисел }
    for I := 1 to 10 do { заполнения массива }
        begin 
            writeln('Enter element:');
            readln(A[I]);
            if ( A[I] = abs(A[I])) and ( A[I] <> 0 ) then { проверка если число положительное }
                Polo := Polo + 1;
            if ( A[I] <> abs(A[I])) then { проверка если число отрицательное}
                Otriz := Otriz + 1;
            if ( A[I] = 0 ) then { проверка если число нуль }
                Null := Null + 1;
        end;

    if ( Otriz > Polo ) and ( Otriz > Null ) then { проверка если отрицательных чисел больше чем остальных }
        begin
            for I:=1 to 10 do
                A[I] := A[I] * (-1); { смена знаках всех елементов массива }
        end;

    for I := 1 to 10 do { печать массива }
    writeln(A[I]);
end.