program fantscrin;
const n = 11;
var a: array [1..n] of integer;
i,s,p: integer;
begin
for i: =1 to n do
a[i]: = random(8)+4;
for i: =1 to n do
write(a[i], ' ');
s: =0;
p: =1;
for i: =1 to n do
if (i mod 2 = 0) then p: =p*a[i]
else s: =s+a[i];
writeln('');
writeln('сумма = ',s);
writeln('произведение = ',p);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-10,10); a.Println;
var imax:=a.IndexMax;
var s:=a.Select((x,i)->(x,i)).Where(xi->(xi[1]>imax) and (xi[0]=0));
if s.Count>0 then begin
Write('Номера искомых элементов: '); s.Select(xi->xi[1]+1).Println
end
else Writeln('Искомые элементы отсутстуют')
end.
Пример
-1 3 1 -10 5 9 8 -7 0 -6 -5 3 3 0 4
Номера искомых элементов: 9 14