ĐỀ 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. program tim_max_min ;

    var i,n,max,min:integer;

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

    begin

    write(‘nhap do dai cua day so n=’);readln(n);

    writeln(‘nhap cac phan tu cua day so :’);

    for i:=1 to n do

    begin

    write(‘a[‘,i,’]=’);readln(a[i]);

    end;

    max :=a[1] ; min:=a[1];

    for i:=2 to n do

    begin

    if max <a[i] then max :=a[i];

    if min >a[i] then min :=a[i];

    end;

    writeln(‘so lon nhat la:’,max);

    writeln(‘so be nhat la:’,min);

    readln

    end.

    chúc bạn học tốt-fewlove 

    Bình luận
  2. 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