34.0 08:52 *il KB/S 89 Bài 1: Nhập mảng A gồm N phần tử (N<=10). Đếm và tính tổng các số âm, số dương trong mảng. Đưa kết quả ra màn hình. Bài 2: Nhập mảng
Lời giải 1 :
Bài 1:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,d1,s1,d2,s2: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]>0 then
Begin
inc(d1);
s1:=s1+A[i];
End;
If A[i]<0 then
Begin
inc(d2);
s2:=s2+A[i];
End;
End;
Writeln('Dem duong = ',d1);
Writeln('Tong duong = ',s1);
Writeln('Dem am = ',d2);
Write('Tong am = ',s2);
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,d1,s1,d2,s2,d3,s3: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 0 then
Begin
inc(d1);
s1:=s1+A[i];
End;
If A[i] mod 2 = 1 then
Begin
inc(d2);
s2:=s2+A[i];
End;
If (A[i] mod 2 = 0) and (A[i] mod 3 = 0) then
Begin
inc(d3);
s3:=s3+A[i];
End;
End;
Writeln('Dem chan = ',d1);
Writeln('Tong chan = ',s1);
Writeln('Dem le = ',d2);
Writeln('Tong le = ',s2);
Writeln('Dem chia het cho 2 va 3 = ',d3);
Write('Tong chia het cho 2 va 3 = ',s3);
Readln
End.
Bài 3:
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,d1,s1: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
If (A[i] mod 2 = 0) and (A[i] mod 3 = 0) then
Begin
inc(d1);
s1:=s1+A[i];
End;
Writeln('Dem chia het cho 2 va 3 = ',d1);
Write('Tong chia het cho 2 va 3 = ',s1);
Readln
End.
Thảo luận
Lời giải 2 :
Bài 1:
Program bai_1;
uses crt;
var M: array [1..10] of integer;
i,n,ta,td,a,d: integer;
begin
clrscr;
repeat
write('Nhap so phan tu cua mang, n<=10: ');readln(n);
until n<=10;
td:=0; ta:=0; a:=0; d:=0;
for i:=1 to n do
begin
write('M[',i,']: ');readln(M[i]);
if m[i]<=0 then
begin
ta:=ta+M[i];
inc(a);
end;
if M[i]>=0 then
begin
td:=td+M[i];
inc(d);
end;
end;
writeln('Cac so am trong mang la: ',a);
writeln('Cac so duong trong mang la: ',d);
writeln('Tong cac so am trong mang la: ',ta);
writeln('Tong cac so duong trong mang la: ',td);
readln
end.
Bài 2: (Các số chia hết cho 2 là các số chẵn nên tổng các số chẵn là tổng các số chia hết cho 2)
Program bai_2;
uses crt;
var M: array [1..10] of integer;
i,n,tc,tl,t3,c,l,c3: integer;
begin
clrscr;
repeat
write('Nhap so phan tu cua mang, n<=10: ');readln(n);
until n<=10;
tc:=0; tl:=0; t3:=0; c:=0; l:=0; c3:=0;
for i:=1 to n do
begin
write('M[',i,']: ');readln(M[i]);
if M[i] mod 2=0 then
begin
tc:=tc+M[i];
inc(c);
end;
if M[i] mod 2=1 then
begin
tl:=tl+M[i];
inc(l);
end;
if M[i] mod 3=0 then
begin
t3:=t3+M[i];
inc(c3);
end;
end;
writeln('Tong cac so chan trong mang la: ',tc);
writeln('Tong cac so le trong mang la: ',tl);
writeln('Tong cac so chia het cho 3 trong mang la: ',t3);
readln
end.
Bài 3:
Program bai_3;
uses crt;
var M: array [1..10] of integer;
i,n,t2,t3,c2,c3: integer;
begin
clrscr;
repeat
write('Nhap so phan tu cua mang, n<=10: ');readln(n);
until n<=10;
t2:=0; t3:=0; c2:=0; c3:=0;
for i:=1 to n do
begin
write('M[',i,']: ');readln(M[i]);
if M[i] mod 2=0 then
begin
t2:=t2+M[i];
inc(c2);
end;
if M[i] mod 3=0 then
begin
t3:=t3+M[i];
inc(c3);
end;
end;
writeln('Cac so chia het cho 2 trong mang la: ',c2);
writeln('Cac so chia het cho 3 trong mang la: ',c3);
writeln('Tong cac so chia het cho 2 trong mang la: ',t2);
writeln('Tong cac so chia het cho 3 trong mang la: ',t3);
readln
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 11
Lớp 11 - Năm thứ hai ở cấp trung học phổ thông, gần đến năm cuối cấp nên học tập là nhiệm vụ quan trọng nhất. Nghe nhiều đến định hướng sau này rồi học đại học. Ôi nhiều lúc thật là sợ, hoang mang nhưng các em hãy tự tin và tìm dần điều mà mình muốn là trong tương lai nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247