60
Объяснение:
1)l=vt(где i-размер,v-скорость,t-время)
пропорция:
(160*1024*8) x
= ==>(мы все переводим в бит,x-то,что находим)
2048 768
(160*8) x
= (1024 сократили с 2048,поэтому внизу 2)
2 768
160*4 x
= (2 сократили с 8)
1 768
2)x=160*4*768 бит
3)160*4*768 160*1*768 80*1*768
= = =60 кбайт
8*1024 2*1024 1024
(цифра 8-перевод из бит в байты,1024 из байтов в килобайты)
Var m:array[1..1000] of integer;
I,j:integer;
Begin
Clrscr;
Writeln('Введите размер массива ');
Readln(n);
Writeln('Массив: ');
For i:=1 to n do
Begin
M[i]:=i;
Write(m[i],' ');
If i mod 2 =0 then j:=j+1;
End;
Writeln;
Writeln('Количество элементов с четными номерами = ',j);
Readkey;
End.