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.
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.
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)
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.
Program hoc24;
Var i,n: integer;
A: array[1..20] of integer;
I,n : integer;
T: longint;
Begin
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=1 then t:=t+a[i];
Write(T);
READLN
END.
uses crt;
var a:array[1..20]of integer;
i,n,t:integer;
begin
clrscr;
n:=20;
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
begin
write(a[i]:4);
t:=t+a[i];
end;
writeln;
writeln('Tong cac so le la: ',t);
readln;
end.
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.