Câu 1 a) nhập giá trị cho 10 phần tử đầu tiên của mảng DiemTB b) nhập giá trị cho các phần tử từ thứ 5 đến thứ 10 của mảng Lop

0 bình luận về “Câu 1 a) nhập giá trị cho 10 phần tử đầu tiên của mảng DiemTB b) nhập giá trị cho các phần tử từ thứ 5 đến thứ 10 của mảng Lop”

1. a)

   var DiemTB: array [1..10] of real;
       i: integer;
   begin
       for i:=1 to 10 do
           readln(DiemTB[i]);
       readln
   end.

   b)

   var Lop: array [1..10] of real;
       i: integer;
   begin
       for i:=5 to 10 do
           readln(Lop[i]);
       readln
   end.

   Bình luận