Question

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 ạ

Answer 1

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.