Viết chương trình khởi tạo một mảng số nguyên .in mảng đó ra màn hình

0 bình luận về “Viết chương trình khởi tạo một mảng số nguyên .in mảng đó ra màn hình”

1. Đáp án:

   Giải thích các bước giải:

   Program so_nguyen;

   Var A:array [1..100] of integer;

       i,N:word;

   Begin

       write (‘Nhap N =’);Readln(N);

       For i:=1 to N do

       begin

       write(‘A[‘,i,’]=’);

       Readln(A[i]);

       end;

       Readln;

   End.

   Bình luận

2. program bai_1;

   uses crt;

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

   n,i:byte; s,max,min:integer;

   begin

   clrscr;

   write(‘nhap so luong phan tu cua mang: ‘);

   readln(n);

   for i:= 1 to n do

   begin

   write(‘nhap phan tu thu [‘,i,’]= ‘);

   readln(a[i]);

   end.

   Bình luận