Viết CT nhập vào dãy số tự nhiên có n phần tử in ra giá trị các phần tử ở vị trí lẻ

2 trả lời

In ra màn hình theo chiều giảm dần từ n về 1 [Tin học - Đại học]

2 trả lời

Thủ tục lục giác [Tin học - Lớp 5]

2 trả lời

$\text{Câu 2:}$

program Cau_2;

uses crt;

var A:array [1..500] of integer;

      n,i: integer;

Begin

         clrscr;

         write[‘Nhap so phan tu: ‘]; readln[n];

         for i:=1 to n do

         begin

                  write[‘A[‘,i,’]=’]; readln[A[i]];

         end;

         write[‘2] Cac phan tu am: ‘];

         for i:=1 to n do

              if A[i]