Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình số có giá trị nhỏ nhất, số có giá trị lớn nhất

0 bình luận về “Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên.Độ dài của dãy số cũng được nhập từ bàn phím.In ra màn hình”

  1. program mang;

    uses crt;

    var A:array [1..500] of integer;

          n,i,max,min: integer;

    Begin

             clrscr;

             write(‘Nhap do dai day: ‘); readln(n);

             for i:=1 to n do

             begin

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

             end;

             write(‘Day sau khi nhap: ‘);

             for i:=1 to n do write(A[i],’  ‘);

             writeln;

             max:=1; min:=1;

             for i:=1 to n do

             begin

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

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

             end;

             writeln(‘Gia tri lon nhat: ‘,max);

             writeln(‘Gia tri nho nhat: ‘,min);

             readln

    End.

    Bình luận
  2. var n,i,k,j,s,max,min:longint;

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

    begin

    write(‘nhap n pt’);readln(n); max:=0; min:=111111;

    for i:=1 to n do

    begin

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

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

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

    end;

    write(max,min);

    readln

    end.

    Bình luận

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