HP
2
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
3 tháng 4 2019
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.
3 tháng 4 2019
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.
BV
1
29 tháng 3 2018
in ra số lớn nhất thì mình nghĩ có cách này :/
program abc;
uses crt;
var a,b,c,dmax : integer;
begin
clrscr;
write ( ' nhap a =' );
readln (a);
write ( ' nhap b = ');
readln (b);
write ( ' nhap c =' );
readln (c);
write ( ' nhap d = ' );
readln (d);
a:=max;
if max<b then max:=b;
if max<c then max :=c;
if max<d then max :=d;
write ( ' so lon nhat la',max);
readln;
end.
( mình không chắc nha :I )
NK
0
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap so n:);realn(n);
for i:=1 to n-1 do
max:=1
if n mod i=0 then
begin
if i >max
write(i);
end;
readln;
end.
LƯU Ý
Các bạn học sinh KHÔNG ĐƯỢC đăng các câu hỏi không liên quan đến Toán, hoặc các bài toán linh tinh gây nhiễu diễn đàn. Online Math có thể áp dụng các biện pháp như trừ điểm, thậm chí khóa vĩnh viễn tài khoản của bạn nếu vi phạm nội quy nhiều lần.
Chuyên mục Giúp tôi giải toán dành cho những bạn gặp bài toán khó hoặc có bài toán hay muốn chia sẻ. Bởi vậy các bạn học sinh chú ý không nên gửi bài linh tinh, không được có các hành vi nhằm gian lận điểm hỏi đáp như tạo câu hỏi và tự trả lời rồi chọn đúng.
Mỗi thành viên được gửi tối đa 5 câu hỏi trong 1 ngày
Các câu hỏi không liên quan đến toán lớp 1 - 9 các bạn có thể gửi lên trang web h.vn để được giải đáp tốt hơn.