Câu 1: Viết chương trình bằng ngôn ngữ lập trình Pascal thực hiện các yêu cầu sau
a) Nhập vào một dãy gồm N số thực (0
Câu 1: Viết chương trình bằng ngôn ngữ lập trình Pascal thực hiện các yêu cầu sau
a) Nhập vào một dãy gồm N số thực (0
uses crt;
var a:array[1..1000] of real;
n,i,j,t,s,nho:integer;
nho1,min:real;
begin
clrscr;
write(‘n= ‘);readln(n);
writeln(‘Nhap day so’);
for i:=1 to n do
begin
write(‘a[‘,i,’]= ‘);readln(a[i]);
end;
t:=0;s:=0;
writeln(‘Day da nhap la’);
for i:=1 to n do
begin
j:=0;
nho1:=a[i];
while trunc(nho1)<>nho1 do
begin
nho1:=nho1*10;
inc(j);
end;
writeln(‘a[‘,i,’]= ‘,a[i]:0:j);
if (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2 <> 0) then
begin
t:=t+trunc(a[i]);
inc(s);
end;
end;
min:=a[i];
for i:=1 to n do
begin
if a[i]<min then
begin
min:=a[i];
nho:=i;
end;
if a[i]=min then nho:=i;
end;
j:=0;
nho1:=min;
while trunc(nho1)<>nho1 do
begin
nho1:=nho1*10;
inc(j);
end;
writeln(‘So nho nhat trong day la: ‘,min:0:j);
write(‘ Vi tri: ‘);
for i:=1 to n do
if a[i]=min then
begin
if i=nho then write(i) else write(i,’;’);
end;
writeln;
if s<>0 then
writeln(‘Tbc cac so le co trong day la ‘,t/s:0:2)
else writeln(‘0.00’);
readln;
end.
Uses Crt;
Var a:array[1..10000] of real;
i,n,S,dem:integer; min,TBC:real;
Begin
Clrscr;
{a} Write(‘Nhap N = ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’] = ‘ ); Readln(a[i]);
End;
WRITELN;
{b} Write(‘ Day so da nhap tren la: ‘);
For i:= 1 to n do Write(a[i]:3:2,’ ; ‘);
min:=a[1];
For i:=1 to n do If min>a[i] then min:=a[i];
WRITELN;
Writeln(‘ So be nhat do la: ‘,min:2:2);
Write(‘ So be nhat do nam o vi tri thu: ‘);
For i:= 1 to n do
Begin
If min=a[i] then write(i:4);
If (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2<> 0) then
Begin
S:=S+trunc(a[i]);
Dem:=dem+1;
End;
Writeln;
End;
If S <> 0 then Write(‘TBC cac so le co trong day la: ‘,s/dem:2:2) else
Write(‘Bao loi ket qua! Vay nen ket qua= ‘,0.00);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!! ~~: 33