Помоги плз, 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
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
Новые вопросы
Геометрия,
2 года назад
Українська мова,
2 года назад
Математика,
9 лет назад
Математика,
9 лет назад
Алгебра,
9 лет назад