VCT nhập vào số nguyên N,hãy tìm ra chữ số lớn nhất trong số N đó

Bởi

VCT nhập vào số nguyên N,hãy tìm ra chữ số lớn nhất trong số N đó

0 bình luận về “VCT nhập vào số nguyên N,hãy tìm ra chữ số lớn nhất trong số N đó”

  1. Program lon_nhat;

    Uses crt;

    Var A:array[1..100] of integer;

    I,n,max : longint;

    Begin

    Clrscr ;

    Write(‘nhap so n’); read(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 A[i] > max then max:=A[i] ; 

    Writeln(‘phan tu lon nhat bang ‘,max,’ trong mang’); 

    delay(5000)

    Readln;

    End.

    Bình luận

Viết một bình luận