Паскаль
1. дан целочисленный массив а(10). заменить числом 1 все, равные нулю, элементы массива. новый массив вывести на печать.
2.напишите программу заполнения массива из 20 элементов по формуле а(х)=0,2х2-3х+0,1 и подсчёта суммы положительных элементов массива.
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(10, -9, 9);
a.Println;
a.Transform(p -> p =0 ? 1 : p);
a.Println;
// 2
var b := ArrGen(20, x -> 0.2 * x * x - 3 *x + 0.1);
b.Println;
b.Where(p -> p > 0).Sum.Println
end.