Đáp án: nhập dãy và in ra số lớn thứ 4(pascal) - program timSo;uses crt;var aarray[1250] of integer; t integer; i,j, n byte;begin clrscr; write(ʹn = ʹ); readln(n); for i=1 to n do begin write(ʹa[ʹ, i, ʹ] = ʹ); readln(a[i]); end; for i=1 to n-1 do for j=i+1 to n do if a[j]>a[i] then begin t=a[i]; a[i]=a[j]; a[j]=t; end; for i=1 to n-1 do if a[i]=a[...

program timSo;uses crt;var aarray[1250] of integer; t integer; i,j, n byte;begin clrscr; write(ʹn = ʹ); readln(n); for i=1 to n do begin write(ʹa[ʹ, i, ʹ] = ʹ); readln(a[i]); end; for i=1 to n-1 do for j=i+1 to n do if a[j]>a[i] then begin t=a[i]; a[i]=a[j]; a[j]=t; end; for i=1 to n-1 do if a[i]=a[...

thename1

2 năm trước

nhập dãy và in ra số lớn thứ 4(pascal)

Xem đáp án

33 lượt xem

1 câu trả lời

sickboy1368

2 năm trước

program timSo;
uses crt;
var a:array[1..250] of integer;
    t: integer;
    i,j, n: byte;
begin
clrscr;
write('n = '); readln(n);
for i:=1 to n do
     begin
        write('a[', i, '] = '); readln(a[i]);
     end;
for i:=1 to n-1 do
     for j:=i+1 to n do if a[j]>a[i] then
        begin
           t:=a[i]; a[i]:=a[j]; a[j]:=t;
        end;
for i:=1 to n-1 do if a[i]=a[i+1] then
     for j:=i+1 to n do a[j]:=a[j+1];
write('so lon thu tu la: ', a[4]);
readln;
end.