Вопрос по информатике:
Кто хорошо разбирается в программировании? очень нужно :) Помогите пожалуйста, напишите программы в Паскале для задач:
1. Заполнить массив А[15] числами 106, 112, 118, 124, 130,...
2.дан массив целых чисел, состоящий из 30 элементов. заполнить его с помощью датчика случайных чисел. Hайти:
a) сумму отрицательных элементов
б) количество тех элементов, значения которых положительны и не превосходят заданного числа А
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.02.2017 22:45
- Информатика
- remove_red_eye 5160
- thumb_up 41
Ответы и объяснения 1
// 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
- 14.02.2017 01:30
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.