Question

Nhập mảng gồm 100 phần tử

Tổng phần tử có số thứ tự lẻ

Xuất ra những phần tử lớn hơn 5

Tìm phần tử nhỏ nhất xuất ra vị trí của nó.

Mọi người giúp mình với. Mai mình kiểm tra rồi!!!!

Answer 1

Program HOC24;

var i,vt,n,min: integer;

a: array[1..100] of integer;

t: longint;

begin

for i:=1 to 100 do

begin

write('a[',i,']='); readln(a[i]);

if i mod 2=1 then t:=t+a[i];

end;

writeln('Tong cac phan tu co so thu tu le la : ',t);

min:=a[1];

write('Cac phan tu lon hon 5 la : ');

for i:=2 to n do

begin

if a[i]>5 then write(a[i],' ');

if a[i]<min then

begin

min:=a[i];

vt:=i;

end;

end;

writeln;

write('Phan tu nho nhat la ',min,' co vi tri la ',vt);

readln

end.