Số âm lớn nhất: Cho một dãy gồm N số nguyên a1, a2,…,an, mỗi số có giá trị tuyệt đối không vượt quá 10^5 Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy

Số âm lớn nhất:
Cho một dãy gồm N số nguyên a1, a2,…,an, mỗi số có giá trị tuyệt đối không vượt quá 10^5
Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.
Dữ liệu:
– Dòng đầu tiên chứa số nguyên dương N(1<=N<=10^5). -N dòng tiếp theo, dòng thứ i chứa số ai. Kết quả: Ghi một dòng duy nhất số X tìm được. Trong trường hợp không có lời giải, ghi ra số 0.

0 bình luận về “Số âm lớn nhất: Cho một dãy gồm N số nguyên a1, a2,…,an, mỗi số có giá trị tuyệt đối không vượt quá 10^5 Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy”

  1. program ct;

    uses  crt;

    const vao=’DAYSO.INP’;

                ra=’DAYSO.OUT’;

    var a:array[1..1000] of integer;

          i,n,X,v,r:integer;

    begin clrscr;

       assign(v,vao); Reset(v);

       assign(r,ra); Rewrite(r);

       readln(v,n);

       for i:=1 to n do read(v,a[i]); 

       for i:=1 to n do

         if a[i]<0 then X:=a[i] else write(‘0’);

       for i:=1 to n do

         if (a[i]<0) and (a[i]>X) then X:=a[i];

       writeln(r,X);

       close(v); 

       close(r);

    readln;

    end.

    Học tốt!

    Bình luận
  2. uses crt;
    var n,i,max : integer;
    a : array[1..100] of integer;
    begin clrscr;
    assign(input,’INP.INP’);
    assign(output,’OUT.OUT’);
    reset(input); rewrite(output);
    read(input,n);
    for i:=1 to n do read(input,a[i]);
    for i:=1 to n do if a[i] < 0 then max:=a[i];
    for i:=1 to n do if (a[i]>max) and (a[i]<0) then max:=a[i];
    write(output,max);
    close(input); close(output);
    readln
    end.

    Bình luận

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