Question

20 БАЛЛОВ! Помогите написать программу на языке Паскаль ABC срочно!!! ​

Answer 1

##

// Задача 1

var d := MatrRandom(5, 7, -99, 99);

d.Println(4);

var s := d.ElementsByRow;

Println('Среднее отрицательных', s.Where(t -> t < 0).Average);

Println('Кол-во положительных', s.Where(t -> t > 0).Count);

Writeln;

// Задача 2

var t := MatrRandom(7, 8, -99, 99);

t.Println(4);

var z := t.ElementsByRow.Where(p -> p > 0).ToArray;

z := z + ArrFill(56 - z.Length, 1);

z.Print