chuyên gia tin học ơi giúp em Viết chương trình nhập vào 1 mảng gồm n số nguyên ( n<=200) a) tính tổng các phần tử của mảng. b) tính tích các phần tử của mảng c) Dưa ra màn hình các phần tử là số lẻ / số chẵn ( câu này là 2 bài riêng nhé) d) Tính tổng các phân tử là số lẻ / số chẵn ( câu này là 2 bài riêng nhé)
2 câu trả lời
Câu a,b)
program cau_ab;
uses crt;
var A:array[1..200] of integer;
n,i:integer;
tong:longint;
tich:int64;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
tong:=0; tich:=1;
for i:=1 to n do
begin
write('phan tu thu ',i,': ');
readln(A[i]);
tong:=t+A[i]; {cong tong}
tich:=tich+A[i]; {tinh tich}
end;
writeln('Tong cac phan tu cua mang la: ',tong);
writeln('Tich cac phan tu cua mang la: ',tich);
readln
end.
Câu c)
program cau_c;
uses crt;
var A:array[1..200] of integer;
n,i,dc,dl:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
dc:=0; dl:=0;
for i:=1 to n do
begin
write('phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2=0 then dc:=dc+1
else dl:=dl+1;
end;
if dl=0 then writeln('Khong co phan tu le')
else
begin
write('Phan tu le trong mang la: ');
for i:=1 to n do
if A[i] mod 2=1 then write(A[i],' ');
writeln;
end;
if dc=0 then writeln('Khong co phan tu chan')
else
begin
write('Phan tu chan trong mang la: ');
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],' ');
end;
readln
end.
Câu d)
program cau_d;
var A:array[1..200] of integer;
n,i:integer;
sc,sl:longint;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n;
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
sc:=0; sl:=0;
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2=0 then sc:=sc+A[i] else sl:=sl+A[i];
end;
writeln('Tong cac phan tu le trong mang la: ',sl);
writeln('Tong cac phan tu chan trong mang la: ',sc);
readln
end.
Câu a,b:
uses crt;
var n,i:byte;
a:array[1..200] of integer;
tong:longint;
tich:int64;
BEGIN
clrscr;
write('Nhap N:'); readln(n);
{NHAP DAY SO}
for i:=1 to n do
begin
write('Nhap a[',i,']');
readln(a[i]);
end;
{TINH TONG}
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
{TINH TICH}
tich:=1;
for i:=1 to n do
tich:=tich*a[i];
{GHI KET QUA RA MAN HINH}
writeln('a)Tong cac phan tu cua mang la:',tong);
writeln('b)Tich cac phan tu cua mang la:',tich);
readln
END.
Bài c:
uses crt;
var n,i:byte;
a:array[1..200] of integer;
tong:longint;
tich:int64;
BEGIN
clrscr;
write('Nhap N:'); readln(n);
{NHAP DAY SO}
for i:=1 to n do
begin
write('Nhap a[',i,']');
readln(a[i]);
end;
write('Cac phan tu la so le trong day la:');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i],' ');
writeln;
write('Cac phan tu la so chan trong day la:');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],' ');
readln
END.
Câu d:
uses crt;
var n,i:byte;
a:array[1..200] of integer;
tong1,tong2:longint;
BEGIN
clrscr;
write('Nhap N:'); readln(n);
tong1:=0; tong2:=0;
{NHAP DAY SO}
for i:=1 to n do
begin
write('Nhap a[',i,']');
readln(a[i]);
if a[i] mod 2=1 then tong1:=tong1+a[i]
else tong2:=tong2+a[i];
end;
writeln('Tong cac so le trong day la ',tong1,'.');
writeln('Tong cac so chan trong day la ',tong2,'.');
readln
END.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.
