Почему в моей программе массив заполняется одинаковыми числами, если он задавался рандомно?
program zadanie;
uses crt;
var a: array [1..10] of integer;
s,i,imax: integer;
begin
clrscr;

writeln('заполнение массива из 10-ти целых чисел');
for i: =1 to 10 do
begin
randomize;
a[i]: = random(100);
write(a[i], ' ');
end;
writeln('подсчёт количества элементов массива, имеющих максимальное значение');
imax: = 1;
s: =0;
for i: = 2 to 10 do
begin
if a[i] > imax then
imax: = a[i];
end;
for i : = 1 to 10 do
begin
if a[i]= imax then
s: =s+1;
end;
writeln(s);
end.

1)  письмо-то было иероглифическое. чтобы выучить все иероглифы, нужно было обладать недюжинным терпением, хорошей памятью. а это как раз свойственно мудрым людям.

2)  основными предметами в школе были письмо, грамота и счет, обучали гимнастическим , плаванию и хорошим манерам.

3)сначала писали на черепках глиняной посуды. когда ученик овладевал письмом, ему давали для письма папирус. писали тонкой тростниковой палочкой, используя черную и красную краски. 

4) профессия писца считалась престижной и доходной, они были частью двора фараонов и освобождались от уплаты налогов, службы в армии и какой бы то ни было работы.

1) F=Av(¬A&B)
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB

2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B

3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B

4) F =(1v(AvB))v((AC)&1) 
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1