Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1.
Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.
2.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.
3.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
câu 1 tham khảo cái này nhé
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
End.
a) Giá tiền của mỗi quyển vở sau khi giảm giá là:
12000-(12000.5%)=12000-600=11400(đồng)
Số tiền Nam còn dư là:
260000-(5000.4)-(11400.20)=12000(đồng)
b) Nếu Nam mua 1 số bút mà số tiền còn thừa là 12000 đồng nên Nam có thể mua nhiều nhất là 2 cây bút thì Nam còn dư 2000 đồng.
Nếu Nam mua 1 số vở mà số tiền còn thừa là 12000 đồng nên Nam có thể mua nhiều nhất là 1 quyển vở thì Nam còn dư 600 đồng.
Nếu Nam mua vừa vở vừa bút mà số tiền còn thừa là 12000 đồng nên Nam không đủ tiền để mua.
Vậy Nam mua thêm một số vở thì Nam sẽ còn dư ít tiền nhất.
Sửa đề: 1 cây bút giá 3500 đồng
Số tiền còn lại là:
154000-53000-6*3500=80000(đồng)
80000/6500=12,3
=>Co thể mua được nhiều nhất 12 quyển tập
junpham2018 nên gọi là chị / anh . Em chưa học lớp 8 đâu đừng có mà mơ em trả lời