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

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