Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

найдите количество элементов массива, которые больше заданного числа а, вводимого с клавиатуры

Ответ оставил Гость

program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
    i,n,k,p:byte;
begin clrscr; Randomize;
    writeln(n:);readln(n);
    writeln(a:);readln(p);
    for i:=1 to n do
    begin
        write(элемент ,i, : );
        readln(a[i]);
    end;
    for i:=1 to n do
        write(a[i], );
    k:=0;
    for i:=1 to n do
    begin
        if a[i] > p then inc(k);
    end;
    writeln(количество элементов массива, которые больше заданного числа,p, : ,k);
end.