Создание программы 8 класс

1. program primer; //имя программы вроде(необязательно)
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец

2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3

Const
  n = 15;

var
  x: array[1..n] of integer;
  i, b, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  s:=0;
  for i := 1 to n do if x[i]>b then s:=s+b;
  Writeln('Сумма элементов, больших ',b,', равна ',s)
end.

Тестовое решение:
Элементы массива
  8 46 29 23 21 14 14  8 20 26 15 49 44 35 33
Введите значение b -> 30
Сумма элементов, больших 30, равна 150

const
  n = 15;

var
  x: array[1..n] of integer;
  i, b: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  i:=1;
  while (x[i]<>b) and (i<n) do Inc(i);
  if x[i]=b then Writeln('x[',i,']=',b)
  else Writeln('Нет элементов со значением, равным ',b)
end.

Тестовое решение:
Элементы массива
 24  6 28 46 25  9 12 47 34  0 20 47 15 10 34
Введите значение b -> 20
x[11]=20