• дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале

Ответы 6

  • да, все*
  • program abc;var a,k,i,min,z:integer;c:real;beginmin:=30000;c:=1;read(a,k);if a>0 thenbeginfor i:=1 to k dobeginz:=i;c:=c+1/z;if (c>a)and(c<min)then min:=i;end;writeln('min',min);end;end.
  • ps:если честно это примерно что нужно если контроль пример то проверь
    • Автор:

      jasmine55
    • 6 лет назад
    • 0
  • спасибо)
  • если контрольный есть пример то проверь
    • Автор:

      alejo
    • 6 лет назад
    • 0
  • program a;var i,s,r:integer;begins:=1;read(i);while i<>0 do beginif (i<0)and(i<>0) then r:=r+1 else s:=s*i;read(i);end;writeln(s,r);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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