BAI THUC HANH 3
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (13.78 KB, 2 trang )
<span class='text_page_counter'>(1)</span>BAI THỰC HÀNH 3 Bai 2 cau b Program baihai; Const Nmax=100; Type Myarray=[1..Nmax] of integer; Var A: Myarray; Dem: array[1..Nmax] of integer; N,k,I,j: integer; Begin Write(‘ nhap so phan tu N=’); readln (N); For i:=1 to n do begin Write(‘ nhap phan tu thu’,I,’=’); Readln(A[i]); End; J:=1; k:=0; For i:=2 to n do if A[i]> A[j] then j:= i; Dem[k]:= j; For i:= 1 to n do if A[i] =A[j] then Begin K:=k+1; Dem[k]:=i ; End; Writeln( ‘ gia tri lon nhat la :’,A[j] :4); Writeln(‘ chi so ung voi gia tri lon nhat la:’); For i:= 1 to k do write(‘ ‘, dem[i]); Writeln;.
<span class='text_page_counter'>(2)</span> Readln; End..
<span class='text_page_counter'>(3)</span>
