Cho dãy A gồm N số nguyên dương A1,A2,A3...An (N<=500).Viết chương trình thực hiện tính tổng các số lẻ của dãy. Viết hàm kiem_tra (x:integer):boolean;(hàm trả về giá trị bằng TRUE nếu x là số lẻ, hàm trả về giá trị bằng FALSE nếu x là số chẵn
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
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(a[n-1]);
readln;
end.
Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:
```python
n = int(input("Nhập số phần tử của dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))
count = 0
for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0
if count != 0:
print()
```
Giải thích:
Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.Ví dụ:
```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
Ta có với số nguyên a bất kì:
| a | - a = a - a = 0 là số chẵn nếu a\(\ge\)0
| a | - a = -a - a = -2a là số chẵn nếu a < 0
Tóm lại: | a | - a là số chẵn với a nguyên bất kì
=> | a1 - a2 | - ( a1 - a2) là số chẵn
| a2 - a3 | - ( a2 - a3) là số chẵn
| a3 - a4 | - ( a3 - a4) là số chẵn
....
| an- a1 | - ( an - a1) là số chẵn
=> [ | a1 - a2| + |a2 - a3| + | a3 - a4| +...+ |an - a1| ] - [( a1 - a2) + (a2 - a3) + ( a3 - a4)+...+ (an - a1) ] là số chẵn
mà ( a1 - a2) + (a2 - a3) + ( a3 - a4)+...+ (an - a1) = 0 là số chẵn
=> | a1 - a2| + |a2 - a3| + | a3 - a4| +...+ |an - a1| là số chẵn
Vậy S luôn là 1 số chẵn.
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
{----------------------chuong-trinh-con------------------------}
function kiem_tra(x:integer):boolean;
begin
if x mod 2<>0 then kiem_tra:=true
else kiem_tra:=false;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=500);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to n do
if kiem_tra(a[i])=true then t:=t+a[i];
writeln('Tong cac so le la: ',t);
readln;
end.