• Составить программу заполняя масива из 100 чисел случаиними значениями -20 до 20 . Почитать количество отрецательних и положительних чисел . помогитеееееееееееееееееееееее

Ответы 5

  • спс но мне паскал надо пишите пожалуста паскале
    • Автор:

      pirate
    • 5 лет назад
    • 0
  • а это не паскаль? о_0
    • Автор:

      elmo2tll
    • 5 лет назад
    • 0
  • Это ABC.net
    • Автор:

      kenneth
    • 5 лет назад
    • 0
  • Главное, что эта прога на Турбо Паскале пойдёт, а значит и на любом другом
    • Автор:

      farmer61
    • 5 лет назад
    • 0
  • Var A:array[1..100] of integer;i,Ko,Kp:integer;BeginKo:=0;Kp:=0;Write('Исходный массив: ');For i:= 1 to 100 do    Begin    A[i]:=random(41)-20;    Write(A[i],' ');    if A[i]<0 then Ko:=Ko+1    else if A[i]>0 then Kp:=Kp+1;    End;WriteLn;WriteLn('Количество отрицательных: ',Ko);WriteLn('Количество положительных: ',Kp);End.
    • Автор:

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

Войти через Google

или

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

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

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