1. Viết chương trình khai báo và nhập mảng 1 chiều tối đa 10 phần tử là kiểu số nguyên và 1 số nguyên K:
a, Thông báo ra màn hình các phần tử có giá trị >=K;
b, Thông báo ra màn hình tổng các phần tử >=K;
2. Viết chương trình khai báo và nhập mảng 1 chiều tối đa 10 phần tử là kiểu số nguyên và 1 số nguyên K:
Hãy sắp xếp mảng theo thứ tự tăng dần/ giảm dần. In ra màn hình mảng trước và sau khi sắp sếp.
Gấp gấp cầu cao nhân hỗ trợ ạ!!!
Câu 1:
uses crt;
var a:array[1..10]of integer;
i,n,k,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
if (0<n) and (n<=10) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap k='); readln(k);
{----------------------------cau-a-------------------------}
writeln('cac phan tu lon hon hoac bang ',k,' trong day la: ');
for i:=1 to n do
if a[i]>=k then write(a[i]:4);
{--------------------------cau-b-------------------------------}
writeln;
t:=0;
for i:=1 to n do
if a[i]>=k then t:=t+a[i];
writeln('tong cac phan tu lon hon hoac bang ',k,' la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.
Câu 2:
uses crt;
var a:array[1..10]of integer;
i,n,tam,j,k:integer;
begim
clrscr;
write('nhap n='); readln(n);
if (0<n) and (n<=10) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap k='); readln(k);
writeln('Day truoc khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('day sap xep tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('day sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
end
else writeln('vui long nhap lai');
readln;
end.
