Visual ! версия 6.0. замените в массиве из 20 случайных двузначных чисел, каждый пятый элемент единицами и выведите полученный массив на форму

1) 1024 символа это 10 бит на символ (1024 = 2^10). Значит текста занимает 24576*10 = 245760 бит = 245760/8 байт = 245760/8/1024 кбайт = 30 кбайт

2) 7кбайт = 7168 байт -> у нас 1 байт на символ = 8 бит. С бит можно закодировать алфавит мощностью 2^8 = 256 символов

3) TrueColor - это цвет глубиной 24 бита = 3 байта. Рисунок 64*272 с такой глубиной занимает 64*272*3 байт = 64*272*3/1024 кбайт = 51 кбайт

4) 75 кбайт = 75*1024 байт = 75*1024*8 бит = 614400 бит

Всего пикселей в рисунке: 768*160 = 122880

Находим глубину цвета каждого пикселя: 614400/122880 = 5 бит

С бит можно закодировать максимум 2^5 = 32 цвета

5) Частота 22000 Гц и разрядность 24 бита означают, что на каждую секунду звука приходится 22000 замеров уровня и каждый кодируется 24 битами = 3 байтами, т.е. одна секунда занимает 22000*3 = 66000 байт.

Тогда минута звучания занимает 66000*60 байт = 66000*60/1024 кбайт = 66000*60/1024/1024 Мбайт = 3,78 Мбайт

//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.