Question

Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:
a.In ra màn hình phần tử đầu tiên và cuối cùng trong mảng
b.Đếm số lượng các phần tử chia hết cho 4
c.Tính tổng các phần tử chẵn và lớn hơn 10
d.In ra màn hình tất cả các số tự nhiên nằm giữa phần tử nhỏ nhất và lớn nhất nhưng không xuất hiện trong mảng
c.Có bao nhiêu số chính phương xuất hiện trong mảng và in ra các số chính phương tìm được
f.Kiểm tra xem mảng vừa nhập có phải mảng chẵn hay không?

Answer 1

uses crt;
var a,b,c,d:array[1..100]of integer;
n,i,dem,t,max,min,j,dem1,kt,dem2,dem3,kt1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Phan tu dau tien la: ',a[1]);
writeln('Phan tu cuoi cung la: ',a[n]);
dem:=0;
for i:=1 to n do
if a[i] mod 4=0 then inc(dem);
writeln('So luong phan tu chia het cho 4 la: ',dem);
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>10) then t:=t+a[i];
writeln('Tong cac so chan va lon hon 10 la: ',t);
dem1:=0;
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then
begin
inc(dem1);
b[dem1]:=a[i];
end;
writeln;
writeln('So luong so chinh phuong trong mang la: ',dem1);
if dem1>0 then
begin
writeln('Cac so chinh phuong co trong mang la: ');
for i:=1 to dem1 do
write(b[dem1]:4);
end;
writeln;
kt:=0;
for i:=1 to n do
if a[i] mod 2<>0 then kt:=1;
if kt=0 then writeln('Day la mang chan')
else writeln('Day khong la mang chan');
readln;
end.