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 đó
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.
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 b)dãy có bao nhiêu số chẵn tính tổng các số chẵn đó SOSSSSS
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 đó
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
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)
viết chương trình nhập vào một dãy số gồm N SỐ NGUYÊN
A.Tính tổng các số nguyên đó
b.Dãy có bao nhiêu số dương ?Tính tổng các số dương đó
Var a:array[1..1000] of integer;
i,n,d:integer;
sd,s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
For i:=1 to n do
If a[i] > 0 then
Begin
d:=d+1;
sd:=sd+a[i];
End;
Writeln('Tong cac so vua nhap la ',s);
Write('Co ',d,' so nguyen duong va tong cua chung la ',sd);
Readln
End.
Bài 7: Viết chương trình đọc từ file INP một dãy số nguyên A gồm có N phần tử (N<=10000). Ghi vào file OUT: dòng 1 ghi dãy số vừa nhập, dòng 2 ghi tổng của dãy số, dòng 3 ghi đếm các số dương có trong dãy và dòng 4 ghi tính tổng của các số dương đó.
BAI7.INP | BAI7.OUT |
6 10 -5 6 -7 -9 4
| 10 -5 6 -7 -9 4 -1 3 20 |
mình ghi dư cái số 4 bên phần BAI7.INP nha mn
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.
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.
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.
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.