N=2^I N=65536 следовательно I=16
V=1280*1024*16=20971520 бит=2621440 байт=2560кБайт=2,5 Мбайт
Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.
Тут такая закономерность
1+1=2
1+2=3
2+3=5
3+5=8
5+8=13
Ответ=13
понял закономерность