Нужно написать 2 программы pascal
1. Дан одномерный массив из 20 элементов, массив заполнен случайными числами от -50 до 50. Вывести на экран все отрицательные элементы массива.
2. Дан одномерный массив из 30 элементов, массив заполнен случайными числами от 0 до 50. Найти сумму элементов массива.
1. Дан одномерный массив из 20 элементов, массив заполнен случайными числами от -50 до 50. Вывести на экран все отрицательные элементы массива.
2. Дан одномерный массив из 30 элементов, массив заполнен случайными числами от 0 до 50. Найти сумму элементов массива.
More Questions From This User See All
Answers & Comments
Прикрепляю файлы с программами во вложения.
===PascalABC.NET===
// PascalABC.NET
begin
// 1
var a := ArrRandom(20, -60, 50);
a.Println.Where(p -> p < 0).Println;
// 2
var b := ArrRandom(30, 0, 50);
b.Println.Sum.Print
end.