Нужно написать 2 программы pascal 1. Дан одномерный массив из 20 элементов, массив...

Question

Нужно написать 2 программы pascal 1. Дан одномерный массив из 20 элементов, массив заполнен случайными числами от -50 до 50. Вывести на экран все отрицательные элементы массива. 2. Дан одномерный массив из 30 элементов, массив заполнен случайными числами от 0 до 50. Найти сумму элементов массива.

Answer 1

Прикрепляю файлы с программами во вложения.

===PascalABC.NET===

Answer 2

// 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.

---

Comments

https://znanija.com/task/35964214 , помогите с информатикой пожалуйста