Вопрос по информатике:
Вычислить h=Sa-Sb где Sa иSb суммы положительных элементов массивов а и в. Вычесления суммы оформить процедурой и функцией
Пожаловаться
- 16.05.2018 21:38
- Информатика
- remove_red_eye 7108
- thumb_up 31
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
procedure pSumPos(m:array of integer; var r:integer);
begin
r:=m.Where(t->t>0).Sum
end;
function fSumPos(m:array of integer):=m.Where(t->t>0).Sum;
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
Write('Сумма положительных элементов А: ');
var s:integer;
pSumPos(a,s);
Writeln(s);
Writeln('Сумма положительных элементов B: ',fSumPos(b));
end.
Пример
n= 13
48 39 -37 -28 45 -29 18 7 -23 47 -38 -34 12
n= 14
8 -3 32 -39 11 2 -30 -9 10 43 -43 41 -34 -25
Сумма положительных элементов А: 216
Сумма положительных элементов B: 147
// Внимание! Если программа не работает, обновите версию!
procedure pSumPos(m:array of integer; var r:integer);
begin
r:=m.Where(t->t>0).Sum
end;
function fSumPos(m:array of integer):=m.Where(t->t>0).Sum;
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
Write('Сумма положительных элементов А: ');
var s:integer;
pSumPos(a,s);
Writeln(s);
Writeln('Сумма положительных элементов B: ',fSumPos(b));
end.
Пример
n= 13
48 39 -37 -28 45 -29 18 7 -23 47 -38 -34 12
n= 14
8 -3 32 -39 11 2 -30 -9 10 43 -43 41 -34 -25
Сумма положительных элементов А: 216
Сумма положительных элементов B: 147
Пожаловаться
- 17.05.2018 13:22
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы