Câu 6: Cho tệp BAI6.INP có cấu trúc như sau : -Dòng 1: số nguyên dương N -Dòng 2: là dãy N số nguyên dương a1, a2, …..an Hãy lập chương trình ghi vào tệp BAI6.OUT : -Dòng 1: Dãy số nguyên a1,a2,a3,…,an -Dòng 2: Các số chẵn của dãy số -Dòng 3: Số phần tử >10 -Dòng 4: Tổng các phần tử của dãy BAI6.INP BAI6.OUT 5 4 6 23 1 5 Dãy số nguyên có dạng :4 16 23 1 5 Các số chẵn của dãy số là 4 16 Số phần tử lớn hơn 10 là: 2 Tổng các phần tử của dãy là: 49 mn giúp em với ,e đang cần gấp ạ
1 câu trả lời
uses crt;
var n,i,d,s:integer;
a:array[1..100000] of integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
read(a[i]);
write('Day so nguyen co dang: ');
for i:= 1 to n do
write(a[i], ' ');
writeln;
write('Cac so chan: ');
for i:= 1 to n do
begin
if a[i] mod 2 = 0 then write(a[i],' ');
if a[i] > 10 then inc(d);
inc(s,a[i]);
end;
writeln;
writeln('So luong cac so lon hon 10: ', d);
writeln('Tong: ', s);
end.
