Bài 9: Làm việc với dãy số – Câu 5 Trang 78 SGK Tin học 8. Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím
Advertisements [Quảng cáo]
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím
Lời giải :
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write[‘nhap so phan tu cua day:’];readln[n];
Advertisements [Quảng cáo]
for i:=1 to n do
begin
write[‘a[‘,i,’]=’];readln[a[i]];
end;
writeln[‘day so da nhap:’];
for i:=1 to n do write[a[i]:2];
readln;
end.
1/
uses crt;
var a: array[1..250] of integer;
n,i,min: integer;
begin
clrscr;
write ['nhap n: ']; readln [n];
for i:=1 to n do
begin
write ['nhap a[',i,']: ']; readln [a[i]];
if min>a[i] then min:=a[i];
end;
writeln ['so nho nhat: ',min];
readln;
end.
2/
uses crt;var a: array[1..250] of integer; i,n,j,t: integer;begin clrscr; write ['nhap n: ']; readln [n]; for i:=1 to n do begin write ['nhap a[',i,']: ']; readln [a[i]]; end; for i:=1 to n-1 do for j:=i+1 to n do if a[i]