Вычислить сумму неотрицательных эл-ов массива чисел , содержащих n эл-ов.

[Di_nusya]

Вычислить сумму неотрицательных эл-ов массива чисел , содержащих n эл-ов.Проверьте пожалуйста...

program summa;
uses crt ;
  const n=20;
  var 
 m : array [1..n] of byte;
 i,sum : integer ;
begin 
clrscr;
randomize;
   begin
   sum:=0;
   m[i]:=random(60);
       for i:=1 to n do 
           if m[i] > 0 then 
                sum:=sum+m[i];
end;
writeln(sum:3);
readln;
end.

[Alex11223]

Перед m[i]:=random(60); забыли цикл. И перед этим begin непонятно к чему.
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[Di_nusya]

сглупила немного , спасибо ))