Xử lý dãy số. Viết chương trình nhập vào một dãy số nguyên a gồm n phần tử (0<= k<=100), viết đoạn chương trình xử lý các công việc: a. Tìm và in ra số lớn nhất, số bé nhất trong dãy a, vị trí của các số này. b. Hiển thị ra màn hình các số là số nguyên tố trong dãy vừa nhập Ví dụ: Nhập n=6 với các giá trị phần tử: 9 4 100 24 33 21 - Số bé nhất là 4 vị trí là 2, số lớn nhất là 100 vị trí là 3 - Số nguyên tố trong dãy vừa nhập là : 33
giúp mk vs <3
uses crt;
var a:array[1..100]of integer;
i,n,max,min,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
writeln('So nho nhat la: ',min);
write('Vi tri la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
writeln;
writeln('Cac so nguyen to trong day la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
