Из предложенных фрагментов составьте программу для следующей задачи: Сформируйте и выведите массив А из 8 элементов случайными числами.

1.randomize;

2. For k := 1 To 8 Do writeln ('a[',i',]=', a[i]);

3.Var a: Array [1..8] Of Integer;

4.end.

5.Begin

6. For k := 1 To 8 Do a[i]:=random(50);

Напишите в ответе последовательность чисел без пробелов

1. Чтобы узнать "мощность алфавита" надо узнать сначала сколькими битами кодируется один символ. 1,5 Кбайт переведем в байты 1,5 * 1024 = 1536 байт и переведем в биты 1536*8=12288 бит. Разделим это на количество символов в сообщении. 12288/768=16 бит. 2 в 16 степени это будет 512 символов т.е. мощность алфавита 512 символов. 
2. если это продолжение первой задачи то решение такое. 
В одном сочинение 2 страницы по 40 строк и 50 символов каждой строке. Находим сколько всего будет символов в одном сочинение 
2*40*50=4000 символов. Из первого пункта видно что 1 символ это 16 бит. Найдем сколько занимает одно сочинение объема.
4000*16=128000 бит переведем в байты. 128000/8=8000 байт.
Объем дискеты 1,44 Мбайт переведем в байты 1,44*1024*1024=1509949,44 разделим чтобы узнать сколько всего сочинений можно поместить на дискету 1509949,44/8000=188,74368 округлим и получим что на одну дискету уместится 188 сочинений.

Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы