Старая прога, поэтому код такой себе, но вроде понятно должно быть
Как я поняла, нужно было использовать кусок кода, данный выше?
var
a: array[1..10] of integer;
imax, i: byte;
begin
Writeln('Массив:');
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(100);
write(a[i]:4);
end;
imax := 1;
for i:=2 to 10 do
if a[i] > a[imax] then imax := i;
writeln;
writeln('Максимальный элемент = ', a[imax]:3, ' в позиции ', imax:2);
<span>end.</span>
53 * 48 * 425 = 1081200 (символов) - должен напечатать.
1081200 / 144 = 7508 (минут)
Ответ : Андрею понадобится 7508 минут чтоюы напечатать 425 страниц.
Program z;
var x, y, a, b, c: integer;
begin
x:=0;
y:=0;
readln(a);
readln(b);
readln(c);
if a > 0 then x:=x+a
else y:=y+a;
if b > 0 then x:=x+b
else y:=y+b;
if c > 0 then x:=x+c
else y:=y+c;
writeln(x);
writeln(y);
if x > y then writeln(a - b)
else writeln(a*b*c);
end.
Ответ 8 ячеек будет . B3:B6 содержит 4 ячейки. И С3:C6 тоже 4. B3:C6 а это из объединение.