Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите программы в Паскале для задач: 1. Заполнить массив А[15] числами 106, 112, 118, 124, 130,... 2.дан массив целых чисел, состоящий из 30 элем...
Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите программы в Паскале для задач:
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
Не нашли ответ?
Похожие вопросы