HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
Giới từ chỉ nơi chốn và thời gian của câu chủ động chuyển sang câu bị động đứng trước hay đứng sau " by ".
Help me! Mai kiểm tra rồi. '<
program chuongtrinh;
uses crt;
var i,s:integer;
a:array [ 1..10] of integer;
begin
for i:=1 to 10 do
write (' a [',i,']= ');
readln ( a[i]);
end;
s:=0;
for i:=1 to 10 do s:= s+ a[i];
write (' Tong cua mang la: ',s);
readln
end.
P/S: Tham khảo nha!!!
Khi bỏ đường vào nước thì xảy ra hiện tượng gì? Vì sao?
Một ô tô có lực kéo 600N thực hiện một công 9000J để chuyển động đều trên đoạn đường trong 20 phút.
a) Tính hiệu suất của động cơ ô tô
b) Tính vận tốc của xe ô tô
write (' So chan trong day: ',chan );
sửa lại phần biến là đếm nhé.
~> write (' So chan trong day: ',dem);
program demsochan;
var dem,chan,n,i:integer;
write (' Nhap gia tri n= ');
readln (n);
dem:=0;
for i:=1 to n do if i mod 2=0 then dem:=dem+1;
write (' So chan co trong day la: ',chan);
var s,i:integer;
for i:=1 to 100 do s:=s+i;
write (' Tong s= ',s);
readln;
var chan, le, i,dem1, dem2 :integer;
a:array [1 .. 1000 ] of integer;
write (' Nhap gia tri n = ');
for i:=1 to n do
write ('a[',i,']= ');
readln (a[i]);
chan:= 0;
dem1:=0;
dem2:=0;
le:= 0;
for i:=1 to n do if i mod 2 = 0 then
dem1:=dem1+1;
chan:=chan+a[i];
for i:=1 to n do if i mod 2 <> 0 then
dem2:=dem2+1;
le:=le+a[i];
writeln (' Tong chan la: ',chan);
writeln (' So phan tu chan trong mang la: ',dem1);
writeln (' Tong le la: ',le);
writeln (' So phan tu le trong mang la: ', dem2);
P/S: thử xem được không nhé.