Hỏi đáp về Thư viện chương trình con chuẩn - Tin học 11

Viết chương trình nhập vào 1 dãy số nguyên gồm n phân tử tính và viết ra màng hình tổng của số dương trong dãy. (nhập từ bàn phím số phần tử N và các phần tử trong dãy)

Uses graph;

Var drive,mode:integer;

BEGIN

           Drive:=0;

           Initgraph(drive, mode, ‘C:\Tp\BGI’);

           Setcolor(3);

           Circle(112,40,30);

           Setcolor(14);

           Ellipse(50,90,0,360,30,20);

          Setcolor(5);

          Rectangle(151,150,201,200);

Readln;

CloseGraph;

END.

a) Đọc các số trong tệp ra mảng A

b) Hãy ghi vào tệp 'Output.txt' vị trí các số tròn chục trong mảng A (mỗi vị trí trên 1 dòng)

Uses graph;

Var drive,mode:integer;

BEGIN

     Setcolor(3);

     Circle(12,40,30);

     CloseGraph;

END.

Uses graph;

Var drive,mode:integer;

BEGIN

  Drive:=0;

  Initgraph(drive, mode, ‘C:\Tp\BGI’);

  Setcolor(3);

  Circle(112,40,30);

  Setcolor(14);

  Ellipse(50,90,0,360,30,20);

  Setcolor(5);

  Rectangle(151,150,201,200);

Readln;

CloseGraph;

END.