Quảng cáo
2 câu trả lời 2056
Bài 1:
uses crt;
var a:array[1..20]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 20 do
begin
repeat
write('a[',i,']='); readln(a[i]);
if a[i]<0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a[i]>=0;
end;
t:=0;
for i:=1 to 20 do
if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];
writeln('tong cac phan tu la so chan o vi tri le trong day la: ',t);
readln;
end.
Bài 2:
uses crt;
var a:array[1..150]of longint;
i,dem,n:integer;
begin
clrscr;
write('n='); readln(n);
if n<=150 then
begin
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
if a[i]>=1000 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a[i]<1000;
end;
{----------------------------------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('so luong so duong trong day la: ',dem);
end;
readln;
end.
Bài 1:
uses crt;
var a:array[1..20]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 20 do
begin
repeat
write('a[',i,']='); readln(a[i]);
if a[i]<0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a[i]>=0;
end;
t:=0;
for i:=1 to 20 do
if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];
writeln('tong cac phan tu la so chan o vi tri le trong day la: ',t);
readln;
end.
Bài 2:
uses crt;
var a:array[1..150]of longint;
i,dem,n:integer;
begin
clrscr;
write('n='); readln(n);
if n<=150 then
begin
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
if a[i]>=1000 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a[i]<1000;
end;
{----------------------------------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('so luong so duong trong day la: ',dem);
end;
readln;
end.
Quảng cáo