Bài 4. Sử dụng biến trong chương trình

Uses crt;

var i,n: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

write(a[i],'  ');

readln;

end.

var a:array[1..1000] of integer;

i,n:integer;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

write('Cac phan tu chan trong mang la: ');

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i]:8);

readln

end.

tham khảo ;

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 20 do 

  begin

delay(50);

writeln('a');

end;

readln;

end

chép mạng có sai thì  thông cảm nha

Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Có 2 cách là nay vs cái gửi trc nhưng cách này ổn hơn nha
Var x,y,t: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=t;
y:=x;
y:=t;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Chọn A

1. write('Khong hop le');

2. write(a);