Дан массив целых чисел. найти количество элементов массива, значения которых больше заданного числа a и кратных 5

Var b: array [1..100000] of integer; a,k,i,n: integer; begin k: =0; {обнуляем счётчик} readln(n); {вводим количество элементов в массиве} readln(a); {задаём число а, с которым потом будем сравнивать} for i: =1 to n do{запускаем цикл} begin if (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в } k: =k+1; {при выполнении условия,увеличиваем счётчик на один} end; writeln(k); {выводим количество элементов, удовлетворивших условию } end.

Const n=10; var arr: array [1..n] of integer; a,k,i: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   arr[i]: =random(51);   write(arr[i]: 4);   end; writeln; write('a = '); readln(a); k: =0; for i: =1 to n do   if (arr[i] > a) and (arr[i] mod 5=0) then k: =k+1; writeln('k = ',k); end. пример: исходный массив:   23   25   41   15   3   48   33   24   10   35 a = 12 k = 3

Program d1kpxx18; uses crt; var x,y,a: real; label 1,2,3,4; begin 4: writeln('выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход'); read(a); if a=1 then goto 1; if a=2 then goto 2; if a=3 then goto 3; 1: begin writeln('введите "х"'); read(x); y: =sin(x); writeln('синус "х" равен    ',y); writeln('ещё? 1-no, 2-yes'); read(a); if a=2 then goto 4 else goto 3; end; 2: begin writeln('введите "х"'); read(x); y: =cos(x); writeln('косинус "х" равен  ',y); writeln('ещё? 1-no, 2-yes'); read(a); if a=2 then goto 4 else goto 3; end; 3: writeln('пока! '); end.программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как это если я правильно понял что именно значило: "организовать меню"

1) uses crt; const size = 10; var a: array [1..size] of integer;       i,p: longint; begin   p: =1;   randomize;   for i: =1 to size do     begin       a[i]: =random(20);       write (a[i],' ');       if (a[i] mod 3 = 0) then p: =p*a[i];     end;   writeln;   writeln (p); end. 2) uses crt; const size = 10; var a: array [1..size] of integer;       i: integer;       s: real; begin   s: =0;   randomize;   for i: =1 to size do     begin       a[i]: =random(4)+1;       write (a[i],' ');       s: =s+a[i];     end;   writeln;   s: =s/size;   writeln (s); end.