Progran BiFi;
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.
Не верно. Сумма может быть любой как и числа массива.
А)1110112+101112=1211224
б)1000112-101112=899000
в)10111112+11102=10122214
г)100012-11112=88900
д)11002+1011112=1022114
е)1001002-101102=899900