K
Khách

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.

7 tháng 2 2023

 

26 tháng 4 2023

program TongSoChan;

var
  n, i, x, tong: integer;

begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  tong := 0;
  
  for i := 1 to n do
  begin
    read(x);
    if x mod 2 = 0 then
      tong := tong + x;
  end;
  
  writeln('Tong cac so chan la: ', tong);
  readln; 
end.

23 tháng 3 2023

Program HOC24;

var i,n: integer;

begin

write('Nhap N: '); readln(n);

for i:=50 to n do if i mod 2=1 then write(i,' ');

readln

end.

7 tháng 3 2023

Var a:array[1..200] of integer;

i,n:integer;

s:longint;

Begin

Write('Nhap so luong so ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:6);

Writeln;

Write('Tong la ');

For i:=1 to n do s:=s+a[i];

Write(s);

Readln;

End.