S = 0 + A[0] -A[3] + A[1] - A[4] + A[2] - A[5] + A[3] - A[6] + A[4] - A[7] + A[5] - A[8] +A[6] - A[9] + A[7] - A[10]
Сокращаем лишнее, получаем:
s = A[0] + A[1] + A[2] - A[8] - A[9] - A[10]
Т.к в массиве находятся только двухзначные числа, возьмем максимальное значение - когда знак "+" и минимальное, когда "-" (пр. A[0] = 99, A[8] = 10 - минимальное и максимальное двухзначное значение) :
s = 99+99+99-10-10-10 = 297-30 = 267
Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.
<span>волк полк пола поза коза,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,</span>
На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.