• Pascal. Процедуры. Вычислить , где s1 и k1 – сумма и количество положительных элементов массива X(N); s2 и k2 – сумма и количество положительных элементов массива Y(M)
    M ≤50
    N ≤50

Ответы 6

  • ну вроде уже
  • проси, не обратила внимания)
    • Автор:

      dillon
    • 5 лет назад
    • 0
  • хотя рандом лучше другой задать, если так то все числа будут >= 0
    • Автор:

      bryant50
    • 5 лет назад
    • 0
  • я поставлю -5+random(10), так нормально будет)
  • должно быть да
    • Автор:

      scrappy
    • 5 лет назад
    • 0
  • type    mas = array [1..50] of integer;var   x,y : mas;   s1,k1,s2,k2 : integer;   s,k : integer;//Если вещественные, а не целые заменить на real(integer)procedure ma (var x,y : mas);  var      i : integer;  begin    for i := 1 to 50 do      begin      x[i] := random(50);      y[i]:=random(75);       end;   end;procedure sk (var s,k : integer; a : mas);  var      i : integer;   begin    s := 0; k := 0;    for i := 1 to 50 do      if a[i] > 0 then      begin       s := s + a[i];       k := k +1;      end;   end; beginrandomize;ma(x,y);sk (s,k,x);s1 := s; k1 := k;sk (s,k,y);s2 := s; k2 := k;//вывод по желаниюend.  
    • Автор:

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

Войти через Google

или

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

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

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