Да все правильно.
молодец
Удачи.
-------------------------------------------------------------------------------------------------------
<span>Настоящий мастер — это вечный ученик.</span>
Var a,b:real;
begin
write('a, b: ');
readln(a,b);
writeln(a,' + ',b,' = ',a+b);
if a+b<1
then if a<b then a:=(a+b)/2 else b:=(a+b)/2
else if a<b then a:=a+b else b:=a+b;
writeln('a = ',a,' b = ',b);
end.
Пример:
a, b: -2.8 4.5
-2.8 + 4.5 = 1.7
a = 1.7 b = 4.5
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s,p:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
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.