Viết chương trình nhập vào mảng một chiều các số nguyên và xuất ra màn hình các phần tử là số chính phương nằm ở vị trí lẻ trong mảng
Hướng dẫn
Bài tập mang tính tham khảo, hỗ trợ các bạn làm quen và luyện tập với các bàn toán lập trình cơ bản trong C++.
Kteam khuyến khích các bạn tự phân tích đề bài > tự giải bài toán > debug để kiểm tra kết quả và fix lỗi trong quá trình giải. Sau đó, bạn có thể tham khảo source code mẫu để hoàn chỉnh bài tập.
Để được hỗ trợ tốt nhất, bạn có thể đặt câu hỏi ở phần bình luận bên dưới bài viết hoặc ở mục Hỏi & Đáp.
Source
/* Viet chuong trinh nhap vao mang mot chieu cac so nguyen va xuat ra man hinh cac phan tu la so chinhs phuong nam o vi tri le trong mang. */ #include #include #define MAX 100 using namespace std; void NhapMang[int a[], int n] { for[int i=0; i32+ Trung niên tuổi từ 33 -> 50
+ Người già tuổi từ 50 trở lên
uses crt;var
a:array[1..100] of longint;
i,n:longint;
begin
clrscr;
write['nhap so nguoi:'];
readln[n];
for i:=1 to n do
begin
write['nhap tuoi cua nguoi thu ',i,':'];
readln[a[i]];
end;
for i:=1 to n do
begin
write['nguoi thu',i,':'];
case a[i] of
0:writeln['tre so sinh'];
2..9:writeln['nhi dong'];
10..5:writeln['thieu nien'];
16..32:writeln['thanh nien'];
33..50:writeln['trung nien'];
Else writeln['nguoi gia'];
end;
end;
readln;
end.
Bài 11
Sắp xếp mảng 1 chiều
Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng
theo thứ tự tăng dần và in kết quả ra màn hình.
Ý tưởng:
Cho biến i chạy từ 1 đến N-1, đồng thời cho biến j chạy từ i+1 đến N: Nếu
A[i]>A[j] thì đổi chổ A[i], A[j].
Dưới đây là thuật toán sắp xếp mảng 1 chiều:
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write['Nhap N=']; Readln[N];
For i:=1 To N Do
Begin
Write['A[',i,']=']; Readln[A[i]];
End;
{Sắp xếp}
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;
{In kết quả ra màn hình}
Writeln['Ket qua sau khi sap xep:'];
For i:=1 To N Do Write[A[i]:5];
Readln;
End.
Tính trung bình cộng các số dương, âm nhập vào từ mảng 1 chiều
trong Pascal
Viết chương trình nhập số nguyên N [0 < N ≤ 10 000] và mảng a gồm N số
nguyên. Tính và in ra trung bình cộng của các số âm, số dương trong a.
Không tính số 0.
Ví dụ : a[] = {1, -6, 0, 3, -1}. Trung bình cộng là -0.75
PROGRAM tbc_am_duong_mang;
USES crt;
VAR a:ARRAY[1..100] OF REAL;
i,n,x,y:INTEGER;
tongam,tongduong,tba,tbd:REAL;
BEGIN
clrscr;
write['So phan tu cua day n= '];readln[n];
FOR i:=1 TO n DO
BEGIN
write['Nhap phan tu a[',i,']: '];
readln[a[i]];
END;
tongam:=0; x:=0;
FOR i:=1 TO n DO
IF a[i]0 THEN
BEGIN tongduong:=tongduong+a[i];
y:=y+1;
END;
tbd:=tongduong/y;
write['TB cong cac so duong la: ',tbd:5:1];
readln;
END.