• Ввети з клавіатури n будь-яких чисел.З-ти кількість додатніх та від*ємних чисел
    ЛАЗАРУС

Ответы 1

  • Код:procedure TForm1.Button1Click(Sender: TObject);var kolo,kolp,i,n:integer;a:array[1..1000] of integer;beginn:=Memo1.Lines.Count;kolo:=0;kolp:=0;for i:=1 to n do begin  a[i]:=StrToInt(Memo1.Lines[i-1]);  If a[i]>0 then Kolp:=kolp+1;  If a[i]<0 then kolo:=kolo+1; end; ShowMessage('Количество положительных: '+IntToStr(kolp)); ShowMessage('Количество отрицательных: '+IntToStr(kolo));end;   Оформление:
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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