bài 1. Viết chương trình nhập vào n số thực
a. Tính tổng các số âm trong các số vừa nhập
b. Tính tổng các số dương trong các số vừa nhập
bài 2. Viết chương trình nhập vào n số nguyên đếm các số vừa chia hết cho 2, cho 3 và cho 6. In kết quả ra màn hình
a)
program ct;
uses crt;
var A:array[1..10000] of integer;
i,n:integer;
Sa,Sd:longint;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
Sa:=0; Sd:=0;
for i:=1 to n do
begin
if A[i] <0 then Sa:=Sa+A[i];
if A[i] >0 then Sd:=Sd+A[i];
end;
writeln(‘Tong cac so am la: ‘,Sa);
writeln(‘Tong cac so duong la: ‘,Sd);
readln;
end.
b)
program ct;
uses crt;
var A:array[1..10000] of integer;
i,n,dem:integer;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
dem:=0;
for i:=1 to n do
if A[i] mod 2=0 and A[i] mod 3=0 and A[i] mod 6=0 then dem:=dem+1;
writeln(‘Co tat ca ‘,dem,’ so vua chia het cho 2, cho 3, cho 6′);
readln;
end.
Học tốt!
Bài 1:
program tt;
uses crt;
var n,i: integer;
a: array[1..1000] of real;
Sa,Sd: longint;
begin
clrscr;
write(‘Nhap so phan tu: ‘)
readln(n);
Sa:=0;Sd:=0;
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(a[i]);
if(a[i]<0) then Sa:=Sa+a[i];
else Sd:=Sd+a[i];
end;
write(‘Tong cac so am trong mang la: ‘,Sa);
write(‘Tong cac so duong trong mang la: ‘,Sd);
readln;
end.
Bài 2:
program dem;
uses crt;
var n,i,dem: integer;
a: array[1..1000] of integer;
begin
clrscr;
write(‘Nhap so phan tu: ‘)
readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(a[i]);
if(a[i] mod 2 = 0) and (a[i] mod 3 = 0) and (a[i] mod 6 = 0) then dem:=dem+1;
end;
writeln(‘ So phan tu chia het cho ca 2, 3 vaf 6 la: ‘,dem);
readln;
end.