Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Cong Doan

Mn ơi viết cho mik một chương trình pascal có đủ các câu lệnh sau : Cl điều kiện(If... then... else) , Cl lặp(for...to.. do) , Cl lặp vs số lần chưa biết trước ( While... do) vs ạ Mik cảm ơn trc ạ

nguyễn an phát
6 tháng 4 2021 lúc 22:25

program day_du_cau_lenh;

uses crt;

var i,n:integer;

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

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;

while i<=n do

begin

write('nhap a[',i,']:');readln(a[i]);

i:=i+1;

end;

for i:=1 to n do

if a[i]>=0 then write(a[i]) else write('');

readln;

end.


Các câu hỏi tương tự
Linh Nguyễn
Xem chi tiết
Linh Nguyễn
Xem chi tiết
Quách Công Hượng
Xem chi tiết
Phạm Võ Quốc Hưng 8.2
Xem chi tiết
duy nguyễn nhất
Xem chi tiết
Hằng Vu
Xem chi tiết
Hoàn Trần
Xem chi tiết
Nhật Hà
Xem chi tiết
cute pho mai que
Xem chi tiết