sử dụng biến mảng để nhập n số nguyên (hoặc thực) từ bàn phím và: in ra màn hình các số lẻ (hoặc chẵn) in ra màn hình số lớn nhất (hoặc bé nhất)

sử dụng biến mảng để nhập n số nguyên (hoặc thực) từ bàn phím và:
in ra màn hình các số lẻ (hoặc chẵn)
in ra màn hình số lớn nhất (hoặc bé nhất)

0 bình luận về “sử dụng biến mảng để nhập n số nguyên (hoặc thực) từ bàn phím và: in ra màn hình các số lẻ (hoặc chẵn) in ra màn hình số lớn nhất (hoặc bé nhất)”

  1. #Số nguyên – lẻ – lớn nhất:

    program mang;

    uses crt;

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

          n,i,max: integer;

    Begin

             clrscr;

             write(‘Nhap so phan tu: ‘); readln(n);

             for i:=1 to n do

             begin

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

             end;

             max:=1;

             write(‘Cac so le trong mang: ‘);

             for i:=1 to n do

                  if A[i] mod 2<>0 then write(A[i],’  ‘);

             for i:=1 to n do

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

             writeln;

             write(‘So lon nhat: ‘,max);

             readln

    End.

    .

    #Số thực – chẵn – bé nhất:

    program mang;

    uses crt;

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

          n,i: integer;

          min: real;

    Begin

             clrscr;

             write(‘Nhap so phan tu: ‘); readln(n);

             for i:=1 to n do

             begin

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

             end;

             min:=1;

             write(‘Cac so chan trong mang: ‘);

             for i:=1 to n do

                  if A[i] mod 2=0 then write(A[i],’  ‘);

             for i:=1 to n do

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

             writeln;

             write(‘So be nhat: ‘,min);

             readln

    End.

    Bình luận
  2. var a:array [1..150] of integer;

    n,i,max:integer;

    begin

    write (‘n=’); readln (n);

    for i:=1 to n do

    begin

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

    end;

    for i:=1 to n do 

    if (a[i] mod 2 = 1) then writeln (a[i],’ ‘); <in số lẻ nha>

    max:=a[1];

    for i:=2 to n do

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

    writeln (‘max=’,max);

    readln;

    end.

    Bình luận

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