Làm chi tiết dễ hiểu nhé
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é)
Các câu lệnh cực kì dễ hiểu nha! Có gì không hiểu bạn cứ bình luận bên dướ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.
#Ngắn gọn, dễ hiểu, chi tiết
Xin hay nhất
a,b)
uses crt;
var n,i,t,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
t:=1;
for i:=1 to n do begin s:=s+a[i]; t:=t*a[i]; end;
writeln(‘Tong cac phan tu: ‘,s);
writeln(‘Tich cac phan tu: ‘,t);
readln;
end.
c1)
uses crt;
var n,i,d:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘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=1 then inc(d);
if d=0 then writeln(‘Khong co so le’) else
begin
writeln(‘Cac so le: ‘);
for i:=1 to n do if a[i] mod 2=1 then writeln(a[i]);
end;
readln;
end.
c2)
uses crt;
var n,i,d:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘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 inc(d);
if d=0 then writeln(‘Khong co so chan’) else
begin
writeln(‘Cac so chan: ‘);
for i:=1 to n do if a[i] mod 2=0 then writeln(a[i]);
end;
readln;
end.
d1)
uses crt;
var n,i,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘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=1 then inc(t,a[i]);
writeln(‘Tong cac so le: ‘,t);
readln;
end.
d2)
uses crt;
var n,i,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘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 inc(t,a[i]);
writeln(‘Tong cac so chan: ‘,t);
readln;
end.