Помоги плз, Pascal. 1)Дан массив Z(8). Определить количество элементов, меньших, чем пятый элемент. 2)Дан массив D(12).Определить сумму отрицательных элементов массива. 3)Дан массив R(10). Все нулевые элементы заменить суммой в...
Помоги плз, Pascal.
1)Дан массив Z(8). Определить количество элементов, меньших, чем пятый элемент.
2)Дан массив D(12).Определить сумму отрицательных элементов массива.
3)Дан массив R(10). Все нулевые элементы заменить суммой всех элементов.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы