Вроде так:
1 - 4
2-
3-2
4-1
5-1
1. В книге 131072 символов.
2. 480 килобайт
3. 4 бита весит один символ
uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.
Мышка,клавиатура.
ддддддддддддд
Вместо Х там должно быть 2