Дан одномерный массив а(10) элементами которого являются положительные и отрицательные целые числа, вводимые с клавиатуры. сформировать новый массив в(10) заменив отрицательные элементы массива аi средним арифметическим значением отрицательных элементов, с подсчётом их количества. на дисплей вывести: исходный массив а(10), количество отрицательных элементов, их среднее значение.

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger(10);   write('массив a: '); a.println;   var s: =a.where(t-> t< 0); // последовательность не хранится   var an: =s.average;   writeln('отрицательных элементов: ',s.count,', среднее= ', an);   var b: =a.select(t-> t< 0? an: t).toarray;   write('массив в: '); b.println end. пример 49 -5 21 10 22 -23 3 35 -26 -43 отрицательных элементов: 4, среднее= -24.25 массив в: 49 -24.25 21 10 22 -24.25 3 35 -24.25 -24.25

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) )