Kate 25 ноября 2019 в 09:16
Срочно решитее прошууу!!!!!
Заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с помощью датчика случайных чисел и вывести исходный массив на экран.Найти сумму положительных
элементов массива.
Срочно решитее прошууу!!!!!
Заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с помощью датчика случайных чисел и вывести исходный массив на экран.Найти сумму положительных
элементов массива.
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -gt; x gt; 0).Aggregate(0, (s, x)-gt; s + x));
end.
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -gt; x gt; 0).Aggregate(0, (s, x)-gt; s + x));
end.
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -gt; x gt; 0).Aggregate(0, (s, x)-gt; s + x));
end.
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -gt; x gt; 0).Aggregate(0, (s, x)-gt; s + x));
end.
Компьютеры и вычисления
366
0
Для комментирования необходимо зарегистрироваться на сайте