viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b)dãy có bao nhiêu số chẵn tính tổng các số chẵn đó SOSSSSS
Những câu hỏi liên quan
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b) dãy có bao nhiêu số chẵn tính tổng các số chẵn đó
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy dãy có bao nhiêu số chẵn tính tổng các số chẵn đó
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 gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b)dãy có bao nhiêu số lẻ tính tổng các số lẻ đó
program TongSoLeTrongDay;
var
n, i, tong, dem: integer;
a: array[1..100] of integer;
begin
tong := 0;
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
tong := tong + a[i];
if a[i] mod 2 <> 0 then
begin
dem := dem + 1;
end;
end;
writeln('Tong cac phan tu trong day la: ', tong);
writeln('So phan tu le trong day la: ', dem);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b) dãy có bao nhiêu số dương tính tổng các số dương đó
program TongSoVaSoDuongTrongDay;
var
n, i, tong, dem, tongDuong: integer;
a: array[1..100] of integer;
begin
tong := 0;
dem := 0;
tongDuong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
write('Nhap day so n: ');
for i := 1 to n do
begin
readln(a[i]);
tong := tong + a[i];
if a[i] > 0 then
begin
dem := dem + 1;
tongDuong := tongDuong + a[i];
end;
end;
writeln('Tong cac phan tu trong day la: ', tong);
writeln('So phan tu duong trong day la: ', dem);
writeln('Tong cac so duong trong day la: ', tongDuong);
readln;
end.
Đúng 1
Bình luận (1)
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b) dãy có bao nhiêu số âm tính tổng các số âm đó . GIÚP MÌNH ĐIIII
Để tính tổng các phần tử trong dãy, ta có thể sử dụng vòng lặp for để duyệt qua từng phần tử và cộng dồn vào một biến tổng. Ví dụ:
n = int(input("Nhap so phan tu cua day: "))
a = []
for i in range(n):
a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))
tong = 0
for elem in a:
tong += elem
print("Tong cua day la: ", tong)
Để đếm số lượng số âm trong dãy và tính tổng các số âm đó, ta có thể sử dụng một biến đếm để đếm số lượng số âm và một biến tổng để cộng dồn các số âm. Ví dụ:n = int(input("Nhap so phan tu cua day: "))
a = []
for i in range(n):
a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))
so_luong_am = 0
tong_am = 0
for elem in a:
if elem < 0:
so_luong_am += 1
tong_am += elem
print("So luong so am trong day la: ", so_luong_am)
print("Tong cac so am trong day la: ", tong_am)
Đúng 1
Bình luận (0)
viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử . Hãy tính tổng các phần tử dương chẵn trong dãy
program tongduong;
uses crt;
var a:array[1..100] of integer;n,i,s:integer;
begin
clrscr;
s:=0;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin writeln('a[',i,']= ');readln(a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];
write(' Tong cac so duong trong day la',s);
readln
end.
Bạn the pie mới có lệnh nhập độ dài của dãy còn chưa có lệnh nhập các phần tử trong dãy nhé :)))
uses crt;
var a:array[1..249]of integer;
i,n,t,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<250);
uses crt;
var i,n:integer;
s:longint;
begin
write('nhap n:');readln(n);
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('tong cac phan tu chan trong day la:',s);
readln;
end.
Đúng 0
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)
1.viết chương trình tạo danh sách số nguyên gồm 10 ptu, tính tổng các phần tử có gtri chẵn. Tính tổng các phần tử ở vị trí chẵn, đưa các ptu có gtri lẻ ra màn hình
2.viết chương trình tạo 1 dãy số nguyên gồm 10 ptu
a,tính tổng các ptu có gtri lẻ
b,đếm số ptu có gtri bằng 6
c, tìm gtri có ptu nhỏ nhất và lớn nhất ra màn hình
CẦN GẤP Ạ!!
Xem chi tiết
2.viết chương trình tạo 1 dãy số nguyên gồm 10 ptu
a,tính tổng các ptu có gtri lẻ
b,đếm số ptu có gtri bằng 6
c, tìm gtri có ptu nhỏ nhất và lớn nhất ra màn hình
CẦN GẤP Ạ!!