Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a)Var z:array[1..1000] of longint;
n, i,S:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin S:=S + z[i];
End;
Writeln('Tong chan la ',S);
End.
b)
Var z:array[1..1000] of longint;
n, i, chan, le:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
If chan>le then writeln('So phan tu chan trong mang nhieu hon')
else writeln('So phan tu le trong mang nhieu hon');
End.
Cậu thử kiểm tra lại nhé!
Var s1,s2,i,j:integer;
Begin
s1:=1;
s2:=0;
i:=2;
j:=4;
While i<=50 do
Begin
s1:=s1+i;
i:=i+2;
End;
While j<=20 do
Begin
s2:=s2+j;
j:=j+4;
End;
s2:=s2+32;
Writeln('Tong day N = ',s1);
Writeln('Tong day M = ',s2);
Readln;
End.
Bạn ơi, hình như đề sai rồi đó.
Vì n ko thỏa mãn n> 20 nên vòng lặp ko xảy ra. Nên khi kết thúc T vẫn bằng 50
D