F= 4* 32*2^10 *32 *2*60 = 2^2 * 2^5 * 2^10 *2^5 *2^3 *15=
=2^25 *15 бит = 2^2 * 15 Мбайт = 60 Мбайт
Ответ 60 Мбайт
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
Const
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20
Var n, i, k, s: integer;
begin
readln(n);
for i:=1 to n do
begin
readln(k);
if abs(k)>i then s:=s+k;
end;
writeln(s);
end.
