Viết chương trình nhập số n số thực từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất của số lớn nhất của dãy số đó nhập n từ bàn phím

Viết chương trình nhập số n số thực từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất của số lớn nhất của dãy số đó nhập n từ bàn phím

0 bình luận về “Viết chương trình nhập số n số thực từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất của số lớn nhất của dãy số đó nhập n từ bàn phím”

  1. uses crt;

    var a: array[1..100] of real;

    i,n: integer;

    min,max: real;

    begin

    clrscr;

    write (‘nhap n: ‘);  readln (n);

    for i:=1 to n do

    begin

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

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

    end;

    min:=a[1];

    for i:=2 to n do if min>a[i] then min:=a[i];

    writeln (‘so lon nhat: ‘,max:1:2);

    writeln (‘so nho nhat: ‘,min:1:2);

    readln;

    end.

    Bình luận
  2. program phuongt;
    uses crt;
       var A: array[1..500] of real;
             n, i: integer;
             max, min: real;
    begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           for i:=1 to n do
           begin
                   write(‘A[‘, i, ‘] = ‘); readln(A[i]);
           end;
           max:=A[1];
           min:=A[1]:
           for i:=1 to n do
           begin
                   if A[i]>max then max:=A[i];
                   if A[i]<min then min:=A[i];
           end;
           writeln(‘Max = ‘, max);
           write(‘Min = ‘, min);
           readln
    end.

    Bình luận

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