begin
var a := SeqGen(6, i -> (i + 1) / 2).ToArray; a.Println;
Print(a.Take(3).Sum - a.Skip(3).Sum)
end.
ОбъясОтличник
program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.
Подробнее - на -
Вы не указали языка программирования, будем считать что это паскаль
var r:array[1...6] of real;
var i:integer;
var sum1 ,sum2: real;
begin
for i := 1 to 6 do
begin
r[i] = i * 0.5;
if (i <= 3) then
sum1 := sum1 + r[i]
else
sum2 := sum2 + r[i];
end;
writeln(sum1 - sum2);
end.