Дан массив e(10 составить программу обработки массива: 1. положительные элементы массива заменить нулями. 2. определить число элементов массива равных 5. 3. найти сумму чисел, неравных 3. все это должно быть в одной , решите качественно, много . ах, да, все это на языке паскаль.

Var sum,c,i,l: integer; e: array[1..10] of integer; beginwriteln('введите числа'); for i: =1 to 10 do beginread(e[i]); if e[i]> 0 then e[i]: =0; if e[i]=5 then l: =l+1; if e[i]< > 3 then sum: =sum+e[i]; end; writeln('полученный массив'); for i: =1 to 10 dowrite(e[i]: 4); writeln; writeln('сумма чисел, не равных трем равна ',sum); writeln('число элементов массива, равных пяти равна ',l); end.

Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

Var a, b, c, d, a1, b1, c1, d1:real;

begin

a1:=0; b1:=0; c1:=0; d1:=0;

read (a, b, c, d);

if (a<0) or (b<0) or (c<0) or (d<0) then

begin

if (a<0) then a1:=a;

if (b<0) then b1:=b;

if (c<0) then c1:=c;

if (d<0) then d1:=d;

writeln ('Сумма отрицательных = ', a1+b1+c1+d1);

a1:=1; b1:=1; c1:=1; d1:=1;

if (a<0) then a1:=a;

if (b<0) then b1:=b;

if (c<0) then c1:=c;

if (d<0) then d1:=d;

writeln ('Произведение отрицательных = ', a1*b1*c1*d1);

end

else writeln ('Все числа больше либо равны 0');

end.

Объяснение: