Question

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

Answer 1

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

===PascalABC.NET===

81cdbda06ce30c6144c7db9e5cae901d.pas

aec5dbc80b137f6429327a7ac6bda38b.pas

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.