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.

21 tháng 6 2020

program hello;

uses crt;

Var n,i,j,k: integer;

a: array[1..50] of integer;

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

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.

21 tháng 4 2020

Đr bạn

7 tháng 5 2019

uses crt;
var j,i:longint;
        b,a:int64;
begin
clrscr;
writeln('nhap tu va mau');readln(a,b);
if b=0 then writeln('day ko la phan so') else begin
for i:=1 to a do
for j:=1 to b do
if (a mod i=0)and(b mod j=0)and(i=j) then begin
a:=a div i;
b:=b div j;
end;
for i:=1 to a do
for j:=1 to b do
if (a mod i=0)and(b mod j=0)and(i=j) then begin
a:=a div i;
b:=b div j;
end;
end;
if a mod b=0 then writeln('ket qua sau khi rut gon la ',a div b)
else writeln('ket qua sau khi rut gon la ',a,'/',b);
readln
end.

7 tháng 5 2019

program rutgon;

var a,b,m,R,n:int64;

begin

write('nhap so tu nhien m:');

readln(m)

; write('nhap so tu nhien n:');

readln(n);

a:=n;

b:=m;

while b<>0 do begin

R:=a mod b;

a:=b;

b:=R;

end;

write('phan so da duoc rut gon la:',m/a:0:0,'/',n/a:0:0);

readln;

end.

Nhanh-gọn-dễ hiểu

S=1+4+7+..+n

Tổng S có số số hạng là \(\frac{\left(n-1\right)}{3}+1=\frac{n+2}{3}\)

Tổng S có giá trị là

\(S=\frac{\left(n+1\right)}{2}.\frac{n+2}{3}=\frac{\left(n+1\right)\left(n+2\right)}{6}\)

14 tháng 8 2016

Mình trình bày lại :

Ta có \(\frac{7x-8}{2x-3}=\frac{4\left(2x-3\right)-\frac{1}{2}\left(2x-3\right)+\frac{5}{2}}{2x-3}=\frac{7}{2}+\frac{5}{2\left(2x-3\right)}\)

Để A đạt giá trị lớn nhất thì 2x-3 đạt giá trị nhỏ nhất. Vì x là số tự nhiên nên 2x-3 là số tự nhiên

=> giá trị nhỏ nhất của 2x-3 là 1 , suy ra x = 2

Vậy Max A = 6 <=> x = 2

14 tháng 8 2016

mk nghĩ là bạn đúng

15 tháng 11 2018

bts là buôn trà sữa