• СРОЧНО!!!!
    дана последовательность из 20 чисел,заполняются случайным образом -10;10.Во сколько отрицательных чисел больше ,чем положительных?
    ПОМОГИТЕ ПОЖАЛУЙСТА!!!!

Ответы 1

  • var a:array[1..20] of integer;i,b,c:integer;beginb:=0;c:=0;for i:=1 to 20 do begina[i]:=random(-10,10);if (a[i])>=0 then b:=b+1else c:=c+1;end;writeln('положительных чисел ', b);writeln('отрицательных чисел ', c);if c>b then writeln('отрицательных чисел больше на ', c-b)else writeln('отрицательных чисел меньше на ',b-c)end.
    • Автор:

      chic
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years