viết chương trình đọc từ bàn phím dãy số thực có n phần tử (1
viết chương trình đọc từ bàn phím dãy số thực có n phần tử (1
By Athena
By Athena
program bai_giai;
uses crt;
var A:array[1..100] of real;
n,i,da,dd:byte;
t:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0; da:=0; dd:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
t:=t+A[i];
if A[i]>0 then dd:=dd+1
else if A[i]<0 then da:=da+1;
end;
writeln(‘Tong cac phan tu la: ‘,t:0:3);
writeln(‘Co ‘,dd,’ so duong’);
writeln(‘Co ‘,da,’ so am’);
readln;
end.
program mang;
uses crt;
var A:array [1..100] of real;
n,i,d1,d1: integer;
T: real;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
T:=T+A[i];
if A[i]>0 then d1:=d1+1;
if A[i]<0 then d2:=d2+1;
end;
writeln(‘T = ‘,T:2:2);
writeln(‘Co ‘,d1,’ so duong’);
write(‘Co ‘,d2,’ so am’);
readln
End.