Bài 1: Cho trước dãy A gồm N số nguyên A1, A2,…,AN (N<=250) Yêu cầu: Cho biết có bao nhiêu số nguyên chẵn trong dãy A Dữ liệu vào: Từ tệp văn bản DEMCHAN.INP có cấu trúc như sau: - Dòng đầu tiên chứa số nguyên N - Dòng thứ hai chứa n số nguyên A1, A2,...,An ( giữa các số cách nhau một dấu cách) Dữ liệu ra: Ghi vào tệp văn bản DEMCHAN.OUT tổng các số nguyên trên
Bài 1: Cho trước dãy A gồm N số nguyên A1, A2,…,AN (N<=250) Yêu cầu: Cho biết có bao nhiêu số nguyên chẵn trong dãy A Dữ liệu vào: Từ tệp văn bản
By Bella
program Bai_tap_1;
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write(‘n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
{—————————–xu-ly——————————}
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+sqr(a[i]);
writeln(‘tong binh phuong cac so hang le trong day A la: ‘,t);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write(‘n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
{—————————–xu-ly——————————}
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+sqr(a[i]);
writeln(‘tong binh phuong cac so hang le trong day A la: ‘,t);
readln;
end.