Извини пожалуйста я не знаю
<em>N=32 ; </em>
N = 2 (в степени i) ;
i = 5 ;
iс= i * K
iс = 5 * 256 = 1280 бит :8 = 160 байт (кол-во информации на 1 носителе);
iс= 256 * 512 * 5=655 360 бит :8 = 81 920 байт :1024 = 80 Кбайт (кол-во информации во всем своде законов)
десятичная: 17, 15, 11, 26
восьмеричная: 21, 17, 13, 32
двоичная: 10001, 1111, 1011, 11010
16ичная: 11, F, B,1A
Var a: array [1..10] of integer;
i, max: integer;
begin
max:= 0;
write('Исходный массив: ');
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);
<span>end.</span>