Здравствуйте, Sanq4!

Решние задачи в приложении с пояснениями.
Строки "для примера" можно удалить.
Массив имеет 10 значений, но можно увеличить если надо.


Приложение:
program mass1;constn = 10; {кол-во эл-ов массива}varm : array[1..n] of integer;i : integer;kol: integer;a : real;beginkol := 0;{массив будем заполнять случайными числами}{например от 1 до 100}randomize; {готовимся к случайному заполнению}for i := 1 to n do {заполняем случайными числами} begin m[i] := random(100) + 1; {случайнае числа от 1 до 100 можно менять} write(m[i], ‘ ‘); {выводим массив для примера} end;writeln(‘введите число А‘);readln(a);writeln;{ищем числа которые больше А и их кол-во}for i:= 1 to n do if m[i] > a then begin kol := kol + 1; {увеличиваем на 1} write(m[i], ‘ ‘); {выводим эл-т массива для примера} end;writeln;writeln(‘Кол-во эл-ов больше ‘, a:2:2, ‘ = ‘, kol);readln;end.

Здравствуйте, Sanq4!
<font color=blue>К</font>од <font color=blue>В</font>ашей программы в приложении.<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Пишем правильно.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 27.05.2008, 23:18 (MCK)</font></fieldset>

Приложение:
uses crt; var b:array [1..20] of integer; i,n,a,kol:integer; begin clrscr; writeln (‘vvedite kol-vo elementov‘); readln (n); writeln (‘vvedite chislo a‘); readln(a); kol:=0; writeln (‘vvedite massiv‘); for i:= 1 to n do begin writeln (‘vvedite ocherednoy element‘); readln (b[i]); if b[i]>a then inc(kol); end; write (‘kol-vo elementov bol‘‘shih a ravno ‘,kol); readln; end.

Здравствуйте, Sanq4!
вводим стандартный цикл который проверяет каждый элемент и находит нужный нам по условию.


Приложение:
uses crt;type mas=array[1..100] of integer;var i,a,i1:integer;m:mas; n:integer;beginrandomize;write(‘vvedite kol-vo elementov‘);readln(n);For i:=1 to n dom[i]:=random(200)-100;Writeln(‘ishodni massiv‘);for i:=1 to n do write(m[i]:5);writeln;begin i1:=0;writeln(‘veddite chislo‘);readln(a);for i:=1 to n do beginif m[i]>a then begininc(i1);end;end;end;writeln(‘kol-vo elementov‘,i1);readln;end.