câu 2 : viết chương trình nhập vào dãy số M
a) in ra các số lẽ trong dãy
b) tính tổng các số lẽ vừa được in ra ( sử dụng vòng While…do)
c) in ra số lớn nhất trong dãy số và cho biết số lớn nhất đang đứng vị trí thứ mấy
câu 2 : viết chương trình nhập vào dãy số M
a) in ra các số lẽ trong dãy
b) tính tổng các số lẽ vừa được in ra ( sử dụng vòng While…do)
c) in ra số lớn nhất trong dãy số và cho biết số lớn nhất đang đứng vị trí thứ mấy
uese crt;
var a: array[1..100] of integer;
m,i,s,max,b: integer;
begin
clrscr;
writeln(‘Nhap so phan tu day M:’); readln(m);
for i:=1 to m do begin
writeln(‘Nhap so thu’,i,’:’); readln(a[i]); end;
writeln(‘Day so le la:’);
for i:= 1 to m do
if a[i] mod 2=1 then write(a[i]:4);
while i>m do begin
i:=i+1;
if a[i] mod 2=1 then s:=s+a[i];
end;
writeln(‘Tong cac so le duoc in ra la:’,s);
s:=1; max:=a[1]; i:=0;
for i:= 1to m do
if max<a[i] then begin max:=a[i];
b:=i;
end;
writeln(‘so lon nhat trong day la:’,max);
writeln(‘Vi tri là thu:’,b);
readln;
end.
program ct;
uses crt;
var i,S,n,Max:integer;
M:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang M[‘,i,’]:=’); readln(M[i]);
end;
for i:=1 to n do
if M[i] mod 2=1 then writeln(‘so le la:’,M[i]);
S:=0; i:=0;
while i>n do
begin
i:=i+1;
if M[i] mod 2=1 then S:=S+M[i];
end;
writeln(‘tong la:’,S);
Max:=M[1];
for i:=2 to n do
if Max<M[i] then Max:=M[i];
writeln(‘gia tri lon nhat la:’,Max);
writeln(‘vi tri la:’);
for i:=1 to n do
if M[i]= Max then write(i,’ ‘);
readln
end.