Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, нап

Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите программы в Паскале для задач: 1. Заполнить массив А[15] числами 106, 112, 118, 124, 130,... 2.дан массив целых чисел, состоящий из 30 элементов. заполнить его с помощью датчика случайных чисел. Hайти: a) сумму отрицательных элементов б) количество тех элементов, значения которых положительны и не превосходят заданного числа А
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin   var a:=106.Step(6).Take(15).ToArray; a.Println end. Результат 106 112 118 124 130 136 142 148 154 160 166 172 178 184 190 // PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin   var b:=ArrRandom(30,-50,50); b.Println;   var a:=ReadInteger('Введите число А:');   Writeln('Сумма отрицательных: ',b.Where(x->x<0).Sum);   Writeln('Cумма положительных, не больших ',a,', равна ',     b.Where(x->(x>0) and (x<=a)).Sum) end. Пример -21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3 Введите число А: 36 Сумма отрицательных: -446 Cумма положительных, не больших 36, равна 168
Не нашли ответ?
Ответить на вопрос
Похожие вопросы