Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
K
Khách
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.
22 tháng 4 2023
program TimSoLonNhat;
var
n, i, max: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
write('Nhap day so n: ');
for i := 1 to n do
begin
readln(a[i]);
if i = 1 then
max := a[1]
else if a[i] > max then
max := a[i];
end;
writeln('So lon nhat trong day la: ', max);
readln;
end.
22 tháng 4 2023
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.
22 tháng 4 2023
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.
22 tháng 4 2023
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.
22 tháng 4 2023
program TinhTBCMon;
var
n, i: integer;
diemAnh, diemVL, tongDiemAnh, tongDiemVL: real;
begin
tongDiemAnh := 0;
tongDiemVL := 0;
write('Nhap so hoc sinh: ');
readln(n);
for i := 1 to n do
begin
write('Nhap diem Tieng Anh cua hoc sinh ', i, ': ');
readln(diemAnh);
tongDiemAnh := tongDiemAnh + diemAnh;
write('Nhap diem Vat ly cua hoc sinh ', i, ': ');
readln(diemVL);
tongDiemVL := tongDiemVL + diemVL;
end;
writeln('Diem trung binh mon Tieng Anh cua lop la: ', tongDiemAnh/n:0:2);
writeln('Diem trung binh mon Vat ly cua lop la: ', tongDiemVL/n:0:2);
readln;
end.
mk trân thành cảm ơn ạ!
22 tháng 4 2023
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
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]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
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]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
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]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 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]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
fgfgfgfgfgfggfgfgfggggfgf