Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )- Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần- Dòng 2: In ra các phần tử trong dãy số chia hết cho 3- Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tốĐề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )- Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần- Dòng 2: In...
Đọc tiếp
Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 3
- Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tố
Đề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 5
- Dòng 3: Tính tổng các phân tử trong dãy số là số chính phương
Đề 3 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: : In ra dãy số đã sắp xếp những số chia hết cho 5 đứng đầu dãy
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 7
- Dòng 3: Tính tổng các phân tử trong dãy số là số đối xứng có trong dãy số
huhu giúp tớ với
Lời giải :
Câu 1 :
var ,j,dem,min,max : integer ;
a : array[1..32000] of integer;
begin
write('n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{cau a};
for i:= 1 to n-1 do
for j:= 1 to n do
if a[i] > a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg ;
end;
write('Mang sap xep theo thu tu tang dan la');
for i:= 1 to n do write(a[i]:3);
{cau b va cau c};
max :=a[1]; min:= a[1] ; dem:=0;
for i:= 2 to n do
begin
if max < a[i] then max:=a[i];
if min > a[i] then min:=a[i];
if a[i]=min then dem:=dem+1;
end;
write('Gia tri lon nhat la:',max);
write('Gia tri nho nhat la:',min);
write('So luong phan tu nho nhat la',dem);
readln
end.
Câu 2 : tương tự câu 1 , bạn tự vận dụng nha
cảm ơn mà bạn thiếu giá trị a,i,n,tg kìa