profile
Опубликовано 6 лет назад по предмету Информатика от 007Девушка0

задан случайно массив из 20 целых чисел в интервале от -100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов

  1. Ответ
    Ответ дан vanecyakubov
    begin
    for i:=1 to 20 then begin
                                 a[i]:=random(100)-100;
                                 if (a[i]<0) then inc(k);
                                 if (a[i]=0) then inc(b);
                                 if (a[i]>0) then inc(c);
                                 end;
    writeln("Кол-во положительных чисел: ", c);
    writeln("Количество отрицательных чисел:",k);
    writeln("Количество нулевых:", b);
Самые новые вопросы