Дан массив целых чисел (n=30), зап. случайным образом числами из пром-ка [-20;60]:1)найти удвоенную сумму положительных элементов массива; 2)найти сумму положительных элементов, кратных 3
Приложения:
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(30,-20,60); a.Println;
Writeln('Удвоенная сумма положительных ',(a.Where(x->x>0).Sum)*2);
Writeln('Сумма положительных, кратных 3: ',
a.Where(x->(x>0) and (x mod 3 = 0)).Sum)
end.
Тестовое решение
33 12 -14 -13 -13 49 -16 60 6 0 37 -6 -5 -5 31 52 49 9 30 -13 23 42 9 49 -7 42 50 44 48 30
Удвоенная сумма положительных 1410
Сумма положительных, кратных 3: 321
begin
var a:=ArrRandom(30,-20,60); a.Println;
Writeln('Удвоенная сумма положительных ',(a.Where(x->x>0).Sum)*2);
Writeln('Сумма положительных, кратных 3: ',
a.Where(x->(x>0) and (x mod 3 = 0)).Sum)
end.
Тестовое решение
33 12 -14 -13 -13 49 -16 60 6 0 37 -6 -5 -5 31 52 49 9 30 -13 23 42 9 49 -7 42 50 44 48 30
Удвоенная сумма положительных 1410
Сумма положительных, кратных 3: 321
Ответ дал:
0
Спасибо большое! А можешь помочь еще с теми, которые на листке? И мне лучше на Делфи
Ответ дал:
0
А где Вы Дельфи увидели? Написано же в комментарии: PascalABC.NET. Кроме того, у Вас в вопросе указано, что нужно сделать два задания. Почему Вы ведете речь о каких-то еще?
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад