Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
30*70*5=10500 всего символов
2²=4
значит 2 бит занимает один символ
10500*2=<em>21000 бит </em>
Const
n = 20;
var
i, imax, j, x: integer;
a: array[1..n]of integer;
begin
for i := 1 to n do
a[i] := random(100);
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
x := a[i];
a[i] := a[imax];
a[imax] := x;
end;
for i := 1 to n do
write(a[i],' ');
writeln();
writeln(imax);
end.
Решение
a:=10;
b:=(10)+1;
a:=(11)-10;
Ответ: a = 1 b = 11