Question

1) Viết chương trình nhập vào mảng số nguyên A

a) In ra màn hình các phần tử của mảng số nguyên đó, mỗi phần tử cách nhau 2 kí tự

b) Tính và in ra màn hình trung bình cộng của các phần tử trong mảng

c) Cho biết phần tử có giá trị lớn nhất và tìm độ chênh lệch giữa phần tử lớn nhất và các phần tử trong mảng

2) Viết chương trình thực hiện các yêu cầu sau:

a) Viết chương trình nhập vào một dãy số thực gồm N phần tử

b) Đếm và in ra màn hình số lượng phần tử là số chẵn, số lẻ, số dương, số âm

c) Cho biết có bao nhiêu phần tử vừa lớn hơn 2 vừa bé hơn 5 và tính tổng các phần tử đó

d) Tìm giá trị lớn nhất và cho biết số ước của giá trị lớn nhất đó

Answer 1

câu 1 :

uses crt;
var a:array[1..100]of integer;
i,n,t,max:integer;
tbc:real;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------xuat----------------------------}
for i:=1 to n do write(a[i]:2);
{--------------tinh-trung-binh-cong--------------------}
writeln;
t:=0;
for i:=1 to n do
begin
t:=t+a[i];
end;
tbc:=t/n;
write(tbc:4:2);
{----------------------phan-tu-co-gia-tri-max-va-khoang-cach----------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('phan tu lon nhat la: ',max);
readln;
end.

xin lỗi bạn , mình mới chỉ làm được nhiêu đó

câu 2:

uses crt;
var a:array[1..100]of integer;
n,dem,dem1,dem2,dem3,i:integer;
t,dem4,max,j:integer;
begin
clrscr;
{------------------cau-a-------------------------}
writeln('cau a:');
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
{--------------cau-b-----------------------------}
writeln;
writeln('cau b:');
writeln('{--------------------------------}');
dem:=0;
dem1:=0;
dem2:=0;
dem3:=0;
for i:=1 to n do
begin
if a[i]>0 then dem:=dem+1;
if a[i]<0 then dem1:=dem1+1;
if a[i] mod 2=0 then inc(dem2);
if a[i] mod 2=1 then inc(dem3);
end;
writeln('so luong so duong la: ',dem);
writeln('cac so duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
writeln('so luong so am la: ',dem1);
writeln('cac so am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
writeln('so luong so chan la: ',dem2);
writeln('cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
writeln('so luong so le la: ',dem3);
writeln('cac so le la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
{------------------cau-c--------------------------}
writeln('cau c:');
t:=0;
dem4:=0;
for i:=1 to n do
if (a[i]>2) and (a[i]<5) then
begin
inc(dem4);
t:=t+a[i];
end;
writeln('so phan tu vua lon hon 2 vua be hon 5 trong day so la: ',dem4);
writeln('tong cua cac phan tu vua lon hon 2 vua be hon 5 trong day so la: ',t);
{---------------cau-d-----------------------------}
writeln('cau d:');
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('phan tu lon nhat trong day so la: ',max);
writeln('cac uoc cua ',max,' la: ');
for j:=1 to max do
if max mod j=0 then write(j:4);
readln;
end.