Задан одномерный массив из n элементов. найти сумму всех неотрицательных элементов массива.

Program project1; uses crt,math; const n=10; var  s: real;   i: byte;   a: array [1..n] of integer; begin    for i: =1 to n do  begin    writeln('vvedite ',i,' cifru'); readln(a[i]);   end;   for i: =1 to n do  begin   if (a[i]< =0) then  s: =s+a[i];   end;   writeln('summa vseh: ',s: 2: 2);   readln; end.      

Если ты под мб- имеешь ввиду мегабиты(мб)  , то считаем так:   1 мб (мегабит)-1024 кб (килобит) = 1048576( ну или примерно 1049000) бит  для 2,5 мегабит это выглядит так:   2,5 мб= 2560 кб (килобит) = 2623000 бит если ты имел ввиду мегабайт (мб) , то считаем так:   1 мб =1024 кб (килобайт)  = 1048576 (ну или примерно 1049000)  байт = 8389000 бит  отсюда 2,5 мб= 2560 кб= 2623000 байт = 20970000 бит как видишь в зависимости от того что ты понимал под аббревиатурой "мб" зависит конечное число.  для справки : 1 байт = 8 бит 1 кб(килобит)= 1024 бит 1кб (килобайт)= 1024 байт и так далее. p.s:   если не понял(а) , то конвертер величин в )

Const   n=10; var   a: array[1..n] of integer;   i, max,t: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do   begin     a[i]: =random(40)-20;     writeln(a[i]);   end;   max: =-20-1;   for i: =1 to n do   if a[i]> max     then       max: =a[i];   t: =a[1];           //замена   a[1]: =max;   max: =t;   writeln('готовый массив: ');   for i: =1 to n do   writeln(a[i]); end.