Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử

213

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 4) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.

Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử

Câu 47: Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình

Lời giải

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

 

Từ khóa :
Giải bài tập
Đánh giá

0

0 đánh giá