Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình tổng các số chẵn
Ngày đăng:
16/10/2021
Trả lời:
0
Lượt xem:
955
Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình tổng giá trị của các số nguyên đó Bạn vui lòng đăng nhập trước khi sử dụng chức năng này. Program bai1; uses crt; var tong : array [1..100] of integer; S, i, n : integer; Begin clrscr; readln (n); for i:=1 to n do readln (tong [i]); for i:=1 to n do S:= S+tong[i]; Writeln ('tong cua' n 'so nguyen la' S); End. Video liên quan |