Viết chương trình nhập vào dãy số in ra màn hình tổng các số vừa nhập của dãy ?
bài 1: viết chương trình nhập vào dãy số in ra màn hình tổng các số vừa nhập của dãy.
bài 2 : viết chương trình nhập vào dãy số in ra màn hình tổng các số chẵn của dãy.
bài 3 : viết chương trình nhập vào dãy số in ra màn hình các số lẻ của dãy.
bài 4: viết chương trình nhập vào dãy số in ra màn hình các số âm của dãy.
bài 5: viết chương trình nhập vào dãy số in ra màn hình dãy được sắp xếp theo thứu tụ tăng dần.
Trả lời (1)
-
bài 1:
Program tong_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
s:longint;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');read(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': ');Read(day[i]);
s:=s+day[i];
End;
Write('Tong cac so vua nhap cua day la: ',s);
Readln;
End.
bài 2:
Program tong_chan_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
s:longint;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');read(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': ');Read(day[i]);
If (day[i] mod 2 = 0) then s:=s+day[i];
End;
Write('tong cac so chan cua day la: ',s);
Readln;
End.
bài 3:
Program in_le_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');read(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': ');Read(day[i]);
End;
Write('Cac so le trong day la: ');
For i:=1 to n do If (day[i] mod 2 = 1) then Write(day[i],' ');
Readln;
End.
bài 4:
Program in_am_day;
Uses crt;
Var n,i:integer;
day:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');read(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': ');Read(day[i]);
End;
Write('Cac so am trong day la: ');
For i:=1 to n do If (day[i] < 0) then Write(day[i],' ');
Readln;
End.
bài 5:
Program in_tang_dan;
Uses crt;
Var n,i,j,tam:integer;
day:array[1..100] of integer;
s:longint;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');read(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,': ');Read(day[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If (day[i]>day[j]) then Begin tam:=day[i]; day[i]:=day[j]; day[j]:=tam; End;
Write('Day duoc sap xep tang dan la: ');
For i:=1 to n do write(day[i],' ');
Readln;
End.
bởi Chuột Chũi
05/05/2020
Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
+ Các ước của n
+ Số lượng các ước của n
+ Tổng các ước của n
+ Xét tổng đó có phải là số hoàn hảo?
29/11/2022 | 0 Trả lời
-
Viết chương trình nhập vào chiều, chiều rông hình chữ nhật và nhập vào cạnh của hình vuông. Thông báo ra màn hình diện tích hình nào lớn hơn.
30/11/2022 | 0 Trả lời
-
vViết chương trình nhập 3 số a,b,h hãy biết só lớn nhất trong 3 số đó
07/12/2022 | 0 Trả lời
-
viết chương trình nhập vào hai số a,b .kiểm tra xem a ,b là số âm hay dương,chẳn hay lẻ.kiểm tra xem a có chia hết cho b hay không.kiểm tra xem a,b có chia hết cho 3 hay không
07/12/2022 | 0 Trả lời
-
Tìm input, output và mô tả thuật toán bài sau: xác định một số tự nhiên x bất kì để chứng minh là số chẵn không?
09/12/2022 | 0 Trả lời
-
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
14/12/2022 | 0 Trả lời
-
viết chương trình giải phương trình bậc nhất ax=b.Với a,b nhập bằng bàn phím Tin
17/12/2022 | 0 Trả lời
-
Cho x và y là 2 độ dài 2 cạnh của một hình chữ nhật. Viết chương trình so sánh 2 giá trị x, y và thông báo nó là hình vuông hay hình chữ nhật thường
18/12/2022 | 0 Trả lời
-
tại sao nguười ta không viết chương trình bằng ngôn ngữ máy?
19/12/2022 | 0 Trả lời
-
cú pháp khai báo biến cho ví dụ khai báo bến trong pascal
20/12/2022 | 0 Trả lời
-
tính quãng đường tào hỏa đi được trong thời gian t vận tốc v
21/12/2022 | 0 Trả lời
-
Em hãy xác định INPUT, OUTPUT và mô tả thuật toán của bài toán nhập vào 2 số nguyên dương a, b và in ra kết quả số a nếu a lớn hơn b và ngược lại in kết quả b. (Ví dụ : nhập 20, 9 in ra 20 ngược lại nhập 9,20 in ra 20).
25/12/2022 | 0 Trả lời
-
Viết chương trình hoàn chỉnh sử dụng câu lệnh điều kiện thực hiện nhập từ bàn phím giá trị của biến nguyên a và kiểm tra nếu a là số lẻ thì tính và in ra màn hình diện tích hình vuông với độ dài cạnh là 2a không thì đi tính chu vi hình vuông với độ dài cạnh là 2a?
Mô tả lại thuật toán giải bài toán trên
28/12/2022 | 0 Trả lời
-
Viết chương trình nhập vào một số nguyên a bất kỳ. Kiểm tra xem số a là số chẵn hay số lẻ. Nếu là số chẵn, tăng giá trị của a thêm 10 đơn vị; Nếu là số lẻ, giảm giá trị của a 10 đơn vị.
30/12/2022 | 0 Trả lời
-
viết công thức tính C=2/3*3/4*4/5....*n/n+1 (n>0)
31/01/2023 | 0 Trả lời
-
Viết chương trình tính tổng: S=1+3+5+...+999
09/02/2023 | 0 Trả lời
-
S=1+1/2^2+1/3^2+...+1/n^2. Trong đó N là một số nguyên được nhập vào từ bàn phím. S là tổng các phân số từ 1 đến n, sau khi tính toán tổng S được xuất ra màn hình.
09/02/2023 | 0 Trả lời
-
Sử dụng câu lệnh lặp để viết chương trình tính tổng 1x2+2x3+3x4+...+n(n+1)
24/02/2023 | 0 Trả lời
-
Viết chương trình tính tổng S=1+2+3+.... đến khi S lớn hơn 250 thì dừng. In ra màn hình giá trị tổng S vừa tính và cho biết giá trị cuối cùng được cộng là bao nhiêu?
05/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số tự nhiên và sắp xếp sau đó in ra màn hình kết quả.
09/03/2023 | 0 Trả lời
-
cho dãy n số nguyên tính tổng các phần tử của dãy và cho biết phần tử nào lớn nhất trong dãy. Hãy viết chương trình bằng pascal?
28/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số sau đó sắp xếp theo thứ tự từ bé đến lớn?
05/04/2023 | 0 Trả lời
-
S:=1; For i:=1 to 5 do S:=S*i;
Giá trị của biến S bằng bao nhiêu?
A. 120
B. 55
C. 121
D. 151
12/04/2023 | 0 Trả lời
-
Viết chương trình pascal nhập hai số a;b (a>0 ; b>0) xuất ra màn hình các số chính phương từ a-b.
12/04/2023 | 0 Trả lời
-
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên . độ dài của dãy cũng đc nhập từ bàn phím .in ra màn hình tổng các giá trị là số lẻ
14/04/2023 | 0 Trả lời
