Задания в прибавлениях. На Паскале , пожалуйста.
Задания в прибавленьях. На Паскале , пожалуйста.
Задать свой вопрос2 ответа
Генка Крейдлин
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программка не работает, обновите версию!
1
begin
var a:=ArrRandom(15,-50,50); a.Println;
a.Where(t-gt;tgt;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-gt;tgt;5).Aggregate(BigInteger(1),(p,q)-gt;(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-gt;tlt;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
Внимание! Если программка не работает, обновите версию!
1
begin
var a:=ArrRandom(15,-50,50); a.Println;
a.Where(t-gt;tgt;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-gt;tgt;5).Aggregate(BigInteger(1),(p,q)-gt;(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-gt;tlt;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
Рома
1. var a: array [1..15] of Integer ;
sum,i:Integer;
begin
for i:=1 to 15 do
begin
Writeln('Введите значение ', i, ' элемента массива');
ReadLn(a[i]);
if a[i]gt; 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]gt; 5 then p:=p*a[i];
end;
Writeln('Творенье частей, больших 5 = ',p);
end.
sum,i:Integer;
begin
for i:=1 to 15 do
begin
Writeln('Введите значение ', i, ' элемента массива');
ReadLn(a[i]);
if a[i]gt; 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]gt; 5 then p:=p*a[i];
end;
Writeln('Творенье частей, больших 5 = ',p);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов