viết chương trình nhập vào N số nguyên và tính tổng .gips mik vs
2 câu trả lời
program ct;
ues crt;
var a: array [1 : 100 ] of :integer;
n,i,tb:integer;
S:longinr;
begin
clrscr;
writeln('nhap do dai day so');
readln (n);
for i:= 1 to n do bigin
writeln('nhap co'thu',i':');
readln a [ i ] ; end.
end;
S:= S+a [ i ];
Tb:= S/n;
writeln ('gia tri trung binh trong day so la',Tb);
readln;
end.
program tong;
uses crt;
var s,n,i:integer;
begin
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong la:',s);
readln
end.
Câu hỏi trong lớp
Xem thêm