viết đoạn chương trình con thực hiện nhập giá trị cho mảng 1 chiều

0 bình luận về “viết đoạn chương trình con thực hiện nhập giá trị cho mảng 1 chiều”

1. uses crt;

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

   i,n:byte;

   function C(n:byte):integer;

   begin

   write(‘nhap n: ‘);readln(n);

   for i:=1 to n do

   begin 

   write(‘gia tri’,i,’: ‘);readln(a[i]);

   end;

   end;

   begin

   clrscr;

   C(n);

   readln;

   end.

   Bình luận