ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất

ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất

0 bình luận về “ĐỀ 2: Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất”

  1. uses crt;

    Var i, n : integer;

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

    Begin clrscr;

    Write(‘Nhap n=’); readln(n);

    For i:=1 to n do

    Begin wirte(‘Nhap a[‘,i,’]=’); readln(a[i]);

    End;

    max :=a[1];

    For i:=2 to n do if a[i] > max then max :=a[i];

    Write(‘Gia tri lon nhat cua mang la :’, max);

    readln

    end.

    Bình luận

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