Дан одномерный массив a(n) a(1) a((n) -целые заменить все большеие члены массива числом 7 .найти колличество таких членов

Var  a: array [1..100] of integer;   i, n, k: integer; begin   writeln('введите количество элементов массива');   readln(n);   for i : = 1 to n do     begin     a[i] : = 1 + random(10);     writeln('a[', i, ']=', a[i]: 3);     if a[i] > 7 then a[i] : = 7;     if a[i] = 7 then inc(k);   end;   writeln('всего заменено ', k, ' элементов массива');   readln end.

Uses crt; const n = 100; var a: array [1..n] of integer; b: array [1..n] of integer; i, j, m: byte; p1, p2: integer; begin write('количество элементов: '); readln(m); clrscr; writeln('ввод массива a'); writeln; for i: =1 to m do    begin    write('a[',i,']: '); readln(a[i]);     end; clrscr; writeln('ввод массива  b'); writeln; for i: =1 to m do    begin    write('b[', i, ']: '); readln(b[i]);     end; clrscr; writeln; writeln('исходный массив а: '); for i: =1 to m do write(a[i]: 4); writeln; writeln; writeln('исходный массив  b: '); for i: =1 to m do write(b[i]: 4); for i: =1 to m-1 do for j: =m downto i do begin if a[i] > a[j] then begin p1: =a[i]; a[i]: =a[j]; a[j]: =p1; end; if b[j] > b[i] then begin p2: =b[i]; b[i]: =b[j]; b[j]: =p2; end; end; writeln; writeln; writeln('массив а по возрастанию: '); for i: =1 to m do write(a[i]: 4); writeln; writeln; writeln('массив b по убыванию: '); for i: =1 to m do write(b[i]: 4); writeln; writeln; writeln('массив a+b: '); for i: =1 to m do begin  a[i]: =a[i]+b[i];   write(a[i]: 4);   a[i]: =a[i]-b[i]; end; writeln; writeln; writeln('массив b-a: '); for i: =1 to m do begin  b[i]: =b[i]-a[i];   write(b[i]: 4); end; readln; end.

Uses crt; const     n = 10; var     a: array[1..n] of integer;     i: integer;     p: real; begin clrscr; randomize; write('исходный массив: '); p: =1; for i: = 1 to n do       begin       a[i]: =random(201)-100;       write(' ',a[i]);       if a[i] > 15 then p: =p*a[i]       end; writeln; if p = 1 then write('в массиве нет чисел больше 15') else writeln('p = ',p); readln end. пример работы программы: исходный массив: -81 -43 -44 -89 47 80 -5 30 97 -39 p = 10941600