Паскаль 1. дан целочисленный массив а(10). заменить - вопрос №103819121101 от VasyPupok228 11.02.2020 00:30

Question

Информатика: Паскаль 1. дан целочисленный массив а(10). заменить числом 1 все, равные нулю, элементы массива. новый массив вывести на печать. 2.напишите программу заполнения массива из 20 элементов по формуле а(х)=0,2х2-3х+0,1 и подсчёта суммы положительных элементов массива.

VasyPupok228 · Answer

===== 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.Printlnend....