Проверено на Паскале АВС:
Program byalodenis;
uses crt;
const n=10;
var
e:array[1..n] of integer;
min,max,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Элементы массива:');
randomize;
e[1]:=random(100)-50;
write (e[1]:5);
max:=e[1];
min:=e[1];
for i:=2 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]>max then
max:=e[i];
if e[i]<min then
min:=e[i];
end;
writeln();
writeln('Сумма максимального и минимального элементов равна ',max+min);
end.
var a, i, z, x, y, l: integer;
mas: array [1..10] of integer;
begin
for l:=1 to 10 do
readln(mas[l]);
i:=0;
for a:=1 to 10 do
if mas[a]>1 then i:=i+1;
if i > 0 then begin
z:=0;
for x:=1 to 10 do z:=z+mas[x];
writeln(z);
end
else begin
y:=1;
for x:=1 to 10 do y:=y*mas[x];
writeln(y);
end;
end.