Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.06.2018 13:03
- Информатика
- remove_red_eye 11336
- thumb_up 16
Ответы и объяснения 2
sum,i:Integer;
begin
for i:=1 to 15 do
begin
Writeln('Введите значение ', i, ' элемента массива');
ReadLn(a[i]);
if a[i]> 10 then sum:=sum+a[i];
end;
Writeln('Сумма элементов, больших 10 = ',sum);
end.
2. var a: array [1..12] of Integer ;
p,i:Integer;
begin
p:=1;
for i:=1 to 12 do
begin
Writeln('Введите значение ', i, ' элемента массива');
ReadLn(a[i]);
if a[i]> 5 then p:=p*a[i];
end;
Writeln('Произведение элементов, больших 5 = ',p);
end.
- 11.06.2018 00:17
- thumb_up 14
Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(15,-50,50); a.Println;
a.Where(t->t>10).Sum.Println
end.
Пример
-39 -31 41 13 2 -33 25 43 -33 -27 8 -49 -21 -9 38
160
№2
begin
var a:=ArrRandom(12,-50,50); a.Println;
a.Where(t->t>5).Aggregate(BigInteger(1),(p,q)->(p*q)).Println
end.
Пример
-44 -22 -44 27 -3 -18 33 -14 -32 13 5 -9
11583
№3
begin
var a:=ArrRandom(20,-50,50); a.Println;
a.Transform(t->t<0?t*3:t); a.Println
end.
Пример
-37 -46 -19 50 44 -36 46 -45 19 -35 18 -9 9 32 -34 7 32 7 -11 20
-111 -138 -57 50 44 -108 46 -135 19 -105 18 -27 9 32 -102 7 32 7 -33 20
- 12.06.2018 01:23
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.