Николай Николаев, Иван Семенов, Петр Иванов, Семен Петров
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.
<u>Пример</u>
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -15, 15);
a.Println;
var i := a.IndexMin;
var m := a[i];
Println('Минимум равен', m);
Print('Номера минимальных элементов:');
a.Indices(p -> p = m).Select(p -> p + 1).Println
end.
Program prog;
uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('Введите значение а = '); readln(a);
write('Введите значение b = '); readln(b);
if b>=a then begin
for i:=a to b do
p:=p*i;
writeln('Произведение Р = ', p);
end
else
writeln('a > b');
end.