Вопрос по информатике:
Составить программу которая создаёт массив случайных чисел в диапазоне (-10,10) . Найти сумму положительных и сумму отрицательных элементов массива
Пожаловаться
- 07.02.2018 07:42
- Информатика
- remove_red_eye 8817
- thumb_up 28
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10);a.Println;
var (sum1,sum2):= (a.Where(t -> t > 0).Sum,a.Where(t -> t < 0).Sum);
Writeln(sum1, ' ', sum2);
end.
Пример:
5 -2 -3 6 -7 -8 -7 7 -1 4
22 -28
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10);a.Println;
var (sum1,sum2):= (a.Where(t -> t > 0).Sum,a.Where(t -> t < 0).Sum);
Writeln(sum1, ' ', sum2);
end.
Пример:
5 -2 -3 6 -7 -8 -7 7 -1 4
22 -28
Пожаловаться
- 08.02.2018 19:23
- thumb_up 15
Const
nn=100;
var
i,n,sn,sp:integer;
a:array[1..nn] of integer;
begin
Write('n = '); Read(n);
Randomize;
sn:=0; sp:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]>0 then sp:=sp+a[i]
else
if a[i]<0 then sn:=sn+a[i]
end;
Writeln;
Writeln('Сумма отрицательных ',sn,', сумма положительных ',sp)
end.
Пример
n = 13
8 4 10 6 -2 2 -9 -9 6 3 2 4 -7
Сумма отрицательных -27, сумма положительных 45
nn=100;
var
i,n,sn,sp:integer;
a:array[1..nn] of integer;
begin
Write('n = '); Read(n);
Randomize;
sn:=0; sp:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]>0 then sp:=sp+a[i]
else
if a[i]<0 then sn:=sn+a[i]
end;
Writeln;
Writeln('Сумма отрицательных ',sn,', сумма положительных ',sp)
end.
Пример
n = 13
8 4 10 6 -2 2 -9 -9 6 3 2 4 -7
Сумма отрицательных -27, сумма положительных 45
Пожаловаться
- 09.02.2018 01:14
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы