Скумиром, сделать корону. фото прилагается!

Если не видно на скриншоте  (Я правильно понял,как нужно сделать?)

1)

Program v1;

var a:array[1..15]of integer;            

i,n,kol:integer;

begin          

randomize;

for i:=1 to 15 do a[i]:=random(70)+10;                            

write('Значение матрицы: ');                                      

for i:=1 to 15 do write(a[i]:5); writeln;  

kol:=0;

 for i:=1 to 15 do

   if a[i]>50 then kol:=kol+1;

 writeln(kol);

 end.

   2)

Program v1;

var a:array[1..20]of integer;            

i,n,kol:integer;

begin            

randomize;

for i:=1 to 20 do a[i]:=random(100)+50;                            

write('Значение матрицы: ');                                      

for i:=1 to 20 do write(a[i]:5); writeln;  

kol:=0;

 for i:=1 to 20 do

   if a[i]<100 then kol:=kol+1;

 writeln('Количество элементов массива, значение которых меньше 100: ',kol);

 end.

1. Условная конструкция if условие then тогда else иначе

Записываем формулу, не забывая о скобках. Квадратный корень - sqrt, модуль - abs.

Код (Pascal):

var x, y: real;

begin

 read(x);

 if x >= 0 then

   y := sqrt(3 * x * x - 1) + 3

 else

   y := (7 * x + 3) / abs(x - 1);

 write(y)

end.

Пример ввода:

2

Пример вывода:

6.3166247903553998

2. Трехзначное число является палиндромом, если первая и последняя цифра одинаковые. Первую цифру можно найти как целую часть от деления на 100, последнюю - как остаток от деления на 10.

Код (Pascal):

var n: integer;

begin

 read(n);

 if n div 100 = n mod 10 then

   write('YES')

 else

   write('NO')

end.

Пример ввода:

707

Пример вывода:

YES