Дан массив из 20 элементов , заполненный случайным образом. вывести его на экран , после этого изменить массив , чтобы значение последнего элемента стало значением первого ( обратный порядок ) пример: 1 2 3 4 5 и стало 5 4 3 2 1 (паскаль)
16777216=2^24, поэтому для кодирования цвета одного пикселя необходимо отвести 24 бита = 3 байта (в одном байте 8 бит).
В экране 1024 * 768 пикселей, на 1 пиксель отводится 3 байта, значит, на один кадр приходится 1024 * 768 * 3 байт = 768 * 3 Кбайт = 0,75 * 3 Мбайт = 2,25 Мбайт (в одном Кбайте 1024 байта, в одном Мбайте 1024 Кбайта)
Частота смена кадра означает, сколько раз в секунду сменяется кадр. В данном случае в секунду кадр сменяется 76 раз, объём переданной за секунду информации 76 * 2,25 Мбайт = 171 Мбайт
Теперь выпишем те, в которых одинаковые буквы стоят на позиции 2-4 (без учёта тех слов, в которых все буквы одинаковые, т.к. они были выписаны ранее)
УААА, АААМ
РРРБ, РРРМ
АУУУ, РУУУ
Всего получилось 15 запрещённых слов, значит, разрешённых слов: 81-15=66.
arr: array[1..20] of integer;
i,tmp:integer;
begin
for i := 1 to 20 do
begin
arr[i] := random(100);
end;
for i := 1 to 20 do write(arr[i], ' ');
for i := 10 downto 0 do
begin
tmp := arr[i+1];
arr[i+1] := arr[20-i];
arr[20-i] := tmp;
end;
writeln;
for i := 1 to 20 do write(arr[i], ' ');
end.