• Разработать программу на языке программированияTurbo Pascal:

    В массиве хранится 10 случайных чисел в интервале[-1,1]. Найти количество положительных и отрицательных чисел. Определить, во сколько суммарное количество положительных чисел превышает отрицательных.

Ответы 2

  • const n=10;var a:array[1..n] of real;k1,k2,i:integer; beginRandomize;for i:=1 to n do begin a[i]:=2*random-1; write(a[i]:7:2); end;writeln;k1:=0; k2:=0;for i:=1 to n do if a[i]>0 then k1:=k1+1 else k2:=k2+1;writeln('k1 = ',k1,' k2 = ',k2);writeln('количество положительных / количество отрицательных = ',k1/k2);end.Пример:  -0.85   0.53  -0.71  -0.14   0.53  -0.17   0.66   0.21   0.08   0.63k1 = 6 k2 = 4количество положительных / количество отрицательных = 1.5
    • Автор:

      peaches
    • 5 лет назад
    • 0
  • Program n1;const n=10;var a: array[1..n] of integer;i,ko,kp: integer;beginrandomize;ko:=0;kp:=0;writeln('иходный массив: ');for i:=1 to n dobegin a[i]:=random(3)-1; write(a[i],' ');end;for i:=1 to n do if a[i]<0 then ko:=ko+1 else if a[i]>0 then kp:=kp+1;writeln;writeln('кол-во пол: ',kp);writeln('кол-во отр: ',ko);writeln('в ',kp/ko,' раз');end.
    • Автор:

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

Войти через Google

или

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

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

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