Số nguyên dương n(n<=150) và dãy n số nguyên dương a1,a2 ,a3 ... an, mỗi số đều không vượt quá 100 a)kiểm tra dãy số đó có phải là cấp số cộng hay không? b)Tìm trong dãy số có bao nhiêu số = 5 c)tính trung bình tổng d)tính tổng các số chẵn & các số lẻ trong dãy số đó,đứa kết quả ra màn hình
Mik chỉ làm câu b,c,d thôi
program Tin_hoc;
uses crt;
var i,n,k.tong,tongchan,tongle:integer;
tb:real;
a: array [1..150] of integer;
begin
clrscr;
write(‘Nhap so nguyen duong n(n<=150): ‘);readln(n);
while n>150 do
begin
write(‘Nhap lai: ‘);
readln(n)
end;
k:=0;tong:=0;tongchan:=0;tongle:=0;
writeln(‘Nhap ‘,n,’ so nguyen: ‘);
for i:= 1 to n do
begin
write(‘Nhap a[‘,i,’] <= 100 : ‘);
readln(a[i]);
while a[i] >100 do
begin
write(‘Nhap lai: ‘);
readln(n)
end;
if a[i] = 5 then inc(k);
tong:= tong + a[i];
if a[i] mod 2 = 0 then tongchan:= tongchan + a[i] else tongle:=tongle + a[i]
end;
tb:= tong/n;
writeln(‘Co ‘,k,’ so bang 5′);
writeln(‘Trung binh cong: ‘,tb:0:4);
writeln(‘Tong cac so chan: ‘,tongchan);
writeln(‘Tong cac so le: ‘,tongle