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ẻ

Nêu tất cả các phím tắt của window11 (Tin học - Lớp 6)

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]<0 then write(A[i],’  ‘);

         readln

End.

$\text{Câu 3:}$

program Cau_3;

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(‘3) Cac phan tu le: ‘);

         for i:=1 to n do

              if A[i] mod 2<>0 then write(A[i],’  ‘);

         readln

End.

$\text{Câu 4:}$

program Cau_4;

uses crt;

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

      n,i,max,min: integer;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to n do

         begin

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

         end;

         max:=A[1];  min:=A[1];

         if max

         if min>A[i] then min:=A[i];

         writeln(‘4) Phan tu lon nhat: ‘,max);

         writeln(‘    Phan tu nho nhat: ‘,min);

         readln

End.

$\text{Câu 5:}$

program Cau_5;

uses crt;

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

      n,i,T: integer;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to n do

         begin

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

         end;

         for i:=1 to n do T:=T+A[i];

         write(‘5) Tong = ‘,T);

         readln

End.

$\text{Câu 6:}$

program Cau_6;

uses crt;

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

      n,i,T: integer;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to n do

         begin

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

         end;

         for i:=1 to n do T:=T+A[i];

         write(‘6) Trung binh cua ‘,n,’ so nguyen = ‘,T/n);

         readln

End.

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.3. 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ẻ.

4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.

Các câu hỏi tương tự