Viết một chương trình thực tế có sử dụng biến mảng
Giúp mình với mình cần gấp
Lưu ý : không phải mấy loại chương trình như nhập điểm đâu
Viết một chương trình thực tế có sử dụng biến mảng
Giúp mình với mình cần gấp
Lưu ý : không phải mấy loại chương trình như nhập điểm đâu
program BT_mang;
uses crt;
var A:array [1..500] of integer;
n,i,TB,thunhapTB: integer;
Begin
clrscr;
write(‘Nhap so ho gia dinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Ho ‘,i,’ (d): ‘); readln(A[i]);
thunhapTB:=thunhapTB+A[i];
end;
writeln(‘Thu nhap trung binh cua cac ho: ‘,thunhapTB/n:2:0,’d’);
writeln(‘Nhap muc thu nhap trung binh: ‘); readln(TB);
for i:=1 to n do writeln(‘Ho ‘,i,’ lech voi muc TB: ‘,A[i]-TB,’d’);
readln
End.
Mình cho chương trình về tìm số lớn nhất và nhỏ nhất nha
program min_max;
uses crt;
var A:array[1..1000] of integer;
n,i,min,max:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
min:=A[1]; max:=A[1];
for i:=2 to n do
begin
if A[i]<min then min:=A[i];
if A[i]>max then max:=A[i];
end;
writeln(‘Gia tri nho nhat la: ‘,min);
writeln(‘Gia tri lon nhat la: ‘,max);
readln;
end.