Из данного натурального числа удалить все цифры а ( а вводится с клавиатуры)

Готово. если возникнут вопросы, пиши ниже.

Выполнение - активное состояние процесса, во время которого процесс обладает всеми необходимыми ресурсами и непосредственно выполняется процессором; ожидание - пассивное состояние процесса, процесс заблокирован, он не может выполняться по своим внутренним причинам, он ждет осуществления некоторого события, например, завершения операции ввода-вывода, получения сообщения от другого процесса, освобождения какого-либо необходимого ему ресурса; готовность - также пассивное состояние процесса, но в этом случае процесс заблокирован в связи с внешними по отношению к нему обстоятельствами: процесс имеет все требуемые для него ресурсы, он готов выполняться, однако процессор занят выполнением другого процесса.

ответ:

var x: array [0..14] of integer;

    i,r1,r2,p,o: integer;

begin

r1: =0; //сумма пол-ых элементов

r2: =0; //сумма отр-ых элементов

p: =0; //счетчик положительных

o: =0; //счетчик отрицательных

    for i: =0 to 14 do

        begin

        //ввод массива

        write('x[',i,']= ');

        readln(x[i]);

        if x[i]> 0 then  

            begin

            r1: =r1+x[i]; //считаем пол-е элементы

            p: =p+1; //увеличиваем счетчик

            end;

        if x[i]< 0 then

            begin

            r2: =r2+x[i]; //считаем отр-ные элементы

            o: =o+1; //увеличиваем счетчик

            end;

        end;

writeln('среднее арифметическое пол-ых элементов: ', r1/p: 5: 2);        

writeln('среднее арифметическое от-ых элементов: ', r2/o: 5: 2);

 

if (abs(r1/p)> abs(r2/o)) then writeln(r1/p: 5: 2, ' больше по абс. величине, чем ', r2/o: 5: 2)

else writeln(r2/o: 5: 2, ' больше по абс. величине, чем ', r1/p: 5: 2);                

end.

объяснение: