profile
Размещено 5 лет назад по предмету Информатика от Lesya1398

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

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

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    const n=10;
    var a:array[1..n] of real;
    k1,k2,i:integer; 
    begin
    Randomize;
    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.63
    k1 = 6 k2 = 4
    количество положительных / количество отрицательных = 1.5
  2. Ответ на вопрос
    Ответ на вопрос дан AnonimusPro
    Program n1;
    const n=10;
    var a: array[1..n] of integer;
    i,ko,kp: integer;
    begin
    randomize;
    ko:=0;
    kp:=0;
    writeln('иходный массив: ');
    for i:=1 to n do
    begin
    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.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.