Информатика, вопрос задал Zheka2121 , 9 лет назад

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

Ответы на вопрос

Ответил Аноним
0
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  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.Println
end.

Тестовое решение:
15 10 10 8 8 20 19 12
6
-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15
-100
2 -2 1 0 -8 1 -1 0 -5 9
2 -2 1 -3 -8 1 -1 -3 -5 9
Новые вопросы