<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var se:=a.Where((x,i)->i.IsOdd).Sum;
var pn:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var ko:=a.Where(x->x.IsOdd).Count;
Writeln('Сумма элементов с четными номерами: ',se);
Writeln('Произведение отрицательных элементов: ',pn);
Writeln('Количество нечетных элементов: ',ko)
end.
<u>Пример</u>
n= 17
7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99
Сумма элементов с четными номерами: -232
Произведение отрицательных элементов: -417286023598080000
Количество нечетных элементов: 10
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
a.Println;
a.Transform(x->x<0?abs(x):x>0?x*x:x); a.Println
end.
<u>Пример</u>
n= 17
Вводите: 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99
7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99
49 60 7 96 14 9409 49 68 89 87 50 2401 5929 52 36 15 9801
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var im:=a.IndexMax;
swap(a[0],a[im]); a.Println;
end.
<u>Пример</u>
n= 16
-73 -46 76 92 -57 -57 81 -96 -92 18 -76 89 13 -83 69 56
92 -46 76 -73 -57 -57 81 -96 -92 18 -76 89 13 -83 69 56
Это же может быть любое число в диапазоне от 11 до 48.
Дана последовательность чисел 10, 20, 30...1000
<span>Составьте алгоритм и программу нахождения суммы чисел этой последовательности
ой не сюда</span>
Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.