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

Đỗ Phạm Thế Đại
Xem chi tiết
Thanh Phong (9A5)
28 tháng 4 2023 lúc 5:44

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.

Bình luận (1)
Kiều Vũ Linh
28 tháng 4 2023 lúc 9:27

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.

Bình luận (0)
Phan Thị Chuyên
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
2 tháng 3 2023 lúc 20:10

Bình luận (0)
Ngọc Ngọc
Xem chi tiết
châu_fa
26 tháng 12 2022 lúc 20:50

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 nhahaha

Bình luận (0)
Liên Nguyễn Thị
Xem chi tiết
HAT9
18 tháng 12 2022 lúc 21:40

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.

Bình luận (0)
HAT9
18 tháng 12 2022 lúc 21:41

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.

Bình luận (0)
Nhưu Quỳnhh
Xem chi tiết
Quốc Việt A Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2022 lúc 23:07

Chọn A

Bình luận (0)
Như Quỳnh
Xem chi tiết
Minh Lệ
2 tháng 12 2022 lúc 21:31

1. write('Khong hop le');

2. write(a);

Bình luận (2)
Nguyễn Lâm Hùng
Xem chi tiết
Phạm Moi
Xem chi tiết