• Помоги плз, Pascal.
    1)Дан массив Z(8). Определить количество элементов, меньших, чем пятый элемент.
    2)Дан массив D(12).Определить сумму отрицательных элементов массива.
    3)Дан массив R(10). Все нулевые элементы заменить суммой всех элементов.

Ответы 1

  • // PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var z:=ArrRandom(8,1,20); z.Println;  Writeln(z.Where(x->x>z[4]).Count);  var d:=ArrRandom(12,-20,20); d.Println;  Writeln(d.Where(x->x<0).Sum);  var r:=ArrRandom(10,-9,9); r.Println;  var s:=r.Sum;  for var i:=0 to 9 do if r[i]=0 then r[i]:=s;  r.Printlnend.Тестовое решение:15 10 10 8 8 20 19 126-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15-1002 -2 1 0 -8 1 -1 0 -5 92 -2 1 -3 -8 1 -1 -3 -5 9
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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