Question

Tạo mảng A gồm n (n < 100) số nguyên, mỗi số có trị tuyệt đối không quá 300. Hãy tính tổng các số khác 0 trong mảng A và ghi ra màn hìn

Answer 1

uses crt;

var x,i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

begin

readln(x);

if x<>0 then t:=t+x;

end;

write(t);

readln;

end.