GIAI BAI TAP THUC HANH 3

Chương 4: KIỂU DỮ LIỆU CÓ CẤU TRÚCBài Thực Hành Số 3 -- ----------------- --------------- ---------------***** ***** *****----------------- ----------------- Bài 1. program sum1; uses crt; const nmax=100; type Myarray=array[1..nmax] of integer; var A:myarray; s,n,i,k,posi,neg:integer; begin clrscr; randomize; write(`Nhap n: `);readln(n); for i:=1 to n do A[i]:=random(300)-random(300); for i:=1 to n do write(A[i]:5); writeln; for i:=1 to n do if A[i]>0 then posi:=posi+1 else if A[i]<0 then neg:=neg+1; writeln(`co `,posi,` so duong va `,neg,` am trong mang`); write(`nhap k: `);readln(k); s: =0; for i: =1 to n do if a[i] mod k =0>a[i-1] then max:=A[i]; for j:=1 to n do
if a[j]=max then writeln(`chi so phan tu lon nhat: `,j); readln end. Chú ý: Các bạn sửa lại chương trình để đưa ra kết quả hợp lí, các chỉ số của phần tử lớn nhất cùng nằm trên một dòng.