Câu : viết chương trình nhấp N phần tử trong mảng, sau đó nhập lần lượt các giá trị của từng phần tử trong mảng rồi thực hiện:
a. in ra giá trị của các phàn tử trong mảng trên một dòng.
b. tính tổng các phần tử trong mảng có giá trị chẵn.
c. tính tổng các phần tử trong mảng có giá trị lẽ và đếm các phần tử lẽ đó.
uses crt;
var a:array[1..1000000] of longint;
n,i,d,s,s1:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
d:=0;s:=0;s1:=0;
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
if a[i] mod 2=1 then begin s1:=s1+a[i]; d:=d+1; end;
end;
write(‘Gia tri cac phan tu: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
writeln(‘Tong cac phan tu chan: ‘,s);
writeln(‘Tong cac phan tu le: ‘,s1);
write(‘Co ‘,d,’ phan tu la so le’);
readln;
end.
Program Typlex;
Uses crt;
Var M: array[1..1000000] of longint;
i,n,sum,dem: longint;
Begin
Writeln(‘Nhap so phan tu: ‘); Readln(n);
For i:=1 to n do
Begin
Writeln(‘M[‘,i,’]=’);
Readln(M[i]);
End;
(*Cau a*)
For i:=1 to n do Write(M[i],’ ‘);
(*Cau b*)
sum:=0;
For i:=1 to n do
If M[i] mod 2 = 0 then sum:=sum+M[i];
Write(‘Tong cua cac phan tu chan trong mang la: ‘,sum);
(*Cau c*)
sum:=0; dem:=0;
For i:=1 to n do
If M[i] mod 2 = 1 then
Begin
sum:=sum+M[i];
dem:=dem+1;
End;
Writeln(‘Tong cua cac phan tu le trong mang la: ‘,sum);
Writeln(‘So phan tu le la: ‘,dem);
Readln
End.