Viết chương trình nhập vào 1 dãy số, in ra dãy số đó, tính tổng của dãy, in ra dãy số chẵn, số lẻ.
Những câu hỏi liên quan
Bài 1: Viết chương trình nhập vào 1 dãy số nguyên xuất dãy số đó ra màn hình tính tích các số chẵn và xuất ra màn hình.
Bài 2: Viết chương trình nhập 1 dãy số nguyên, xuất dãy số đó ra màn hình tính tổng các số chẵn các số lẻ và xuất ra màn hình.
program timtich;
uses crt;
var i,n:integer;
tich:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
tich:=1;
writeln;
for i:=1 to n do
if a[i] mod 2=0 then tich:=tich*a[i];
writeln('tich ca phan tu chan cua mang la:',tich);
readln;
end.
program timtong;
uses crt;
var i,n:integer;
tong:longint;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
tong:=0;
writeln;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cac phan tu chan cua mang la:',tong);
tong:=0;
writeln;
for i:=1 to n do
if a[i] mod 2=1 then tong:=tong+a[i];
writeln('tong cac phan tu le cua mang la:',tong);
readln;
end.
Đúng 1
Bình luận (0)
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do
if a[i] mod 2=0 then s:=s*a[i];
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1 : Viết chương trình nhập vào dãy số gồm n phần tử. Tính và in ra màn hình tổng các số chẵn, các số lẻ của dãy vừa nhập
program TongChanLe;
var
n,i, chans, les: integer; a: array[1..100] of integer;
begin
chans := 0;
les := 0;
write('Nhap n: ');
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
chans := chans + a[i]
else
les := les + a[i];
end;
writeln('Tong cac so chan la: ', chans);
writeln('Tong cac so le la: ', les);
readln;
end.
Đúng 2
Bình luận (1)
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
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.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (0)
Bài 3:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
Uses crt;
var max,min,n,i,m,n: longint;
a: array[1..100] of longint
begin clrscr;
for i:=1 to n do begin
if(a[i] mod 2=0) then m:=m+a[i];
if(a[i] mod 2<>0) then n:=n+a[i];
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if(max<a[i]) then max:=a[i];
if(min>a[i]) then min:=a[i];
end;
Writeln('Tong cac phan tu chan: ',m);
Writeln('Tong cac phan tu le: ',n);
Writeln('Phan tu co gia tri lon nhat: ',max);
Writeln('Phan tu co gia tri nho nhat: ',min);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số gồm n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
Uses crt;
var max,min,n,i,m,n: longint;
a: array[1..100] of longint
begin clrscr;
for i:=1 to n do begin
if(a[i] mod 2=0) then m:=m+a[i];
if(a[i] mod 2<>0) then n:=n+a[i];
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if(max<a[i]) then max:=a[i];
if(min>a[i]) then min:=a[i];
end;
Writeln('Tong cac phan tu chan: ',m);
Writeln('Tong cac phan tu le: ',n);
Writeln('Phan tu co gia tri lon nhat: ',max);
Writeln('Phan tu co gia tri nho nhat: ',min);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên . In ra màn hình tổng các chẵn , tổng các số lẻ có trong dãy đã cho .
Program HOC24;
var i,n: integer;
t1,t2: longint;
begin
write('Nhap so phan tu cua day: '); readln(a[i]);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
t1:=0; t2:=0;
for i:=1 to n do if a[i] mod 2=0 then t1:=t1+a[i] else t2:=t2+a[i];
writeln('Tong cac so chan la: ',t1);
write('Tong cac so le la: ',t2);
readln
end.
Đúng 3
Bình luận (0)
Mọi người giúp mik vs nhé, mik cần gấp, sắp thi rồi. Mik cảm ơn trc ạ: C1: nhập vào 1 mảng gồm n phần tử, tính giá trị trung bình của dãy số đó. C2: Viết chương trình nhập dãy n số và in ra tổng các số chẵn, tổng các số lẻ trong dãy cần nhập. C3: viết chương trình nhập dãy n số và cho biết số nhỏ nhất trong các số vừa nhập là số thư mấy?
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
Đúng 0
Bình luận (1)
Câu 1:
Program Tin_hoc;
Uses crt;
Var i,n,tong:integer;
tb:real;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
tong:=0;
Writeln('Nhap ',n,' phan tu cua day:');
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
tong:=tong+a[i];
end;
tb:=tong/n;
Writeln('Gia tri trung binh cua day la: ',tb:0:4);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
1 Hãy viết chương trình nhập vào một dãy số ,in ra màn hình các số chẵn có trong dãy số ,với độ dài dãy số được nhập vào từ bàn phím 2 Hãy viết chương trình nhập vào một dãy số , in ra màn hình trung bình cộng của các phần tử trong dãy số với độ dài...
Xem chi tiết
Bạn ơi giúp mình với chiều nay mình thi rồi
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy n số nguyên ( n < 150 ) hãy in ra màn hình dãy vừa nhập và tính tổng các phần tử lẻ của dãy
n = int(input('Nhập n ( n < 150): '))
if n >= 150:
print('n phải nhỏ hơn 150')
else:
arr = [ ]
total = 0
# Nhập vào dãy số nguyên
for i in range(n):
arr.append(int(input('Nhập phần tử thứ ' + str(i+1) + ': ')))
# In dãy vừa nhập
print('Dãy vừa nhập là: ', end='')
for i in range(n):
print(arr[i], end=' ')
# Tính tổng các phần tử lẻ
for i in range(n):
if arr[i] % 2 != 0:
total += arr[i]
print('\nTổng các phần tử lẻ là:', total)
Đúng 2
Bình luận (0)