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 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.
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)
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.
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);
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.
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.
Số âm thì làm sao vậy bạn?