<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-12,12); a.Println;
Writeln('Среднее арифметическое: ',a.Average);
Writeln('Произведение отрицательных: ',
a.Where(t->t<0).Aggregate(1,(x,y)->x*y));
Writeln('Количество четных: ',a.Where(t->t.IsEven).Count);
Writeln('Максимальный элемент: ',a.Max)
end.
<u>Пример</u>
9 -10 -2 -4 11 8 1 0
Среднее арифметическое: 1.625
Произведение отрицательных: -80
Количество четных: 5
Максимальный элемент: 11
Var s:string;
n,l,k,i:integer;
begin
write ('Введите строку: ');
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord('?');
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.')
else writeln ('Знак вопроса встретился ',k,' раз строке.');
end.
If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
На клавиатуре есть числа 1,2,3,4,5,6,7,8,9,0.
Значит 1,3,5,7,9 - нечётные то есть нечётных 5 чисел.
Сумма чисел 1,2,3,4,5,6,7,8,9,0= 45