Viết chương trình tạo dãy A gồm n phần tử, mỗi phần tử là một số nguyên. Tạo và
in ra màn hình dãy B chỉ gồm các số chẵn có trong dãy A
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.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua day A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
writeln;
sum := 0;
for i := 1 to N do
if A[i] mod 2 = 0 then
sum := sum + A[i];
writeln('Tong cac phan tu chan trong day la: ', sum);
readln;
end.
Var a:array[1..1000] of integer;
i,n:integer;
sc,sl:longint;
Begin
Write('Nhap so luong so cua day ');readln(n);
For i:=1 to n do
Begin
Write(a,'[',i,'] = ');readln(a[i]);
End;
Write('Tong cac so chan la ');
For i:=1 to n do
If a[i] mod 2 = 0 then sc:=sc+a[i];
Writeln(sc);
Write('Tong cac so le la ');
For i:=1 to n do
If a[i] mod 2 <> 0 then sl:=sl+a[i];
Write(sl);
Readln
End.
1:
#include <bits/stdc++.h>
using namespace std;
long long n=10, a[10],i,nn;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=2; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[10],i;
int main()
{
for (i=1; i<=10; i++)
cin>>a[i];
for (i=1; i<=10; i++)
cout<<a[i]<<" ";
cout<<endl;
for (i=1; i<=10; i++)
if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
uses crt;
var A : array [1 .. 10] of integer;
i : integer;
begin
clrscr;
for i := 1 to 10 do
begin
write('Nhap so thu ', i ,' : ');
readln(A[i]);
end;
write('Cac gia tri chan : ');
for i := 1 to 10 do
if A[i] mod 2 = 0 then
write(A[i], ' ');
readln
end.
Ngôn ngữ gì bạn nhỉ?
Nếu là Python thì bạn thử đoạn code sau nhé.
def tao_day_A(n):
# Khởi tạo dãy A
day_A = []
# Nhập các phần tử cho dãy A
print("Nhập các phần tử của dãy A:")
for i in range(n):
phan_tu = int(input("Nhập phần tử thứ {}: ".format(i+1)))
day_A.append(phan_tu)
return day_A
def tao_day_B(day_A):
# Tạo dãy B chỉ chứa các số chẵn từ dãy A
day_B = [x for x in day_A if x % 2 == 0]
return day_B
def in_day(day, ten_day):
# In ra dãy đã tạo
print("\nDãy", ten_day + ":")
for i in range(len(day)):
print(day[i], end=" ")
print()
# Nhập số lượng phần tử của dãy A
n = int(input("Nhập số lượng phần tử của dãy A: "))
# Tạo dãy A
day_A = tao_day_A(n)
# Tạo dãy B từ dãy A
day_B = tao_day_B(day_A)
# In ra dãy A và dãy B
in_day(day_A, "A")
in_day(day_B, "B")