Sử dụng chương trình pascal có sử dụng mảng Nhập một dãy gồm 4 số và xuất ra số thứ ba trong dãy số

0 bình luận về “Sử dụng chương trình pascal có sử dụng mảng Nhập một dãy gồm 4 số và xuất ra số thứ ba trong dãy số”

1. program oken;
   uses crt;
   var a: array[1..4] of integer;
       i: byte;
   begin
       clrscr;
       writeln(‘Nhap mang A’);
       for i:=1 to 4 do
           begin
               write(‘A[‘,i,’]: ‘); readln(a[i]);
           end;
       writeln(‘Phan tu thu 3 trong mang: ‘,a[3]);
       readln;
   end.

   Bình luận

2. Program CT;

   Uses crt;

   Var i:integer;

   A:array[1..4] of integer;

   Begin

   Clrscr;

   For i:=1 to 4 do

   Begin

   Write(‘nhap mang A[‘,i,’]=’); readln(A[i]);

   End;

   Writeln(‘phan tu thu ba la’,A[3]);

   Readln

   End.

   Bình luận