viết chương trình dãy số là 1 đến 100 và xuất ra màn hình kiểu mảng

viết chương trình dãy số là 1 đến 100 và xuất ra màn hình kiểu mảng

0 bình luận về “viết chương trình dãy số là 1 đến 100 và xuất ra màn hình kiểu mảng”

  1. uses crt;
    var a:array[1..100] of integer; n,i:integer;
    begin
     clrscr;
     write(‘Nhap so luong phan tu: ‘); readln(n);
     for i:=1 to n do
      begin
       write(‘Phan tu thu ‘,i,’: ‘); readln(a[i]);
      end;
     write(‘Day vua nhap: ‘);
     for i:=1 to n do write(a[i],’ ‘);
     readln;
    end.

    Bình luận

Viết một bình luận