Вопрос по информатике:
В одномерном массиве случайных чисел в диапазоне от -60 до +60 вычислить Z=S1+S2/2 , где S1 – сумма положительных элементов массива, S2 – сумма отрицательных элементов массива.
Помогите плиз решить задачу по Паскалю
Пожаловаться
- 13.02.2018 16:33
- Информатика
- remove_red_eye 2269
- thumb_up 33
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-60,60); a.Println;
var (s1,s2):=(a.Where(x->x>0).Sum,a.Where(x->x<0).Sum);
var z:=s1+s2/2;
Writeln('z=',z)
end.
Пример
n= 16
-3 -42 48 -6 -27 45 -44 43 -34 53 19 -28 57 12 -19 -1
z=175
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-60,60); a.Println;
var (s1,s2):=(a.Where(x->x>0).Sum,a.Where(x->x<0).Sum);
var z:=s1+s2/2;
Writeln('z=',z)
end.
Пример
n= 16
-3 -42 48 -6 -27 45 -44 43 -34 53 19 -28 57 12 -19 -1
z=175
Пожаловаться
- 14.02.2018 07:13
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы