Câu 1: Viết ct nhập vào số nguyên n. In và tính tổng các phần tử lẻ Câu 2: Viết ct nhập vào số nguyên n. In và đếm các số từ 1 -> n Câu 3: nhập vào mảng gồm n số nguyên. In ra mà hình các phần tử dương Câu 4: viết ct nhập vào số n. Đếm và tính tổng các số là bội của 4 BẠN NÀO LÀM GIÚP MÌNH VỚI!! ĐÂY LÀ ĐỀ THI HK CỦA MÌNH

1)

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     if i mod 2=1 then S:=S+i;

   write('Tong ca phan tu le la: ',S);

readln;

end.

2)

program ct;

uses crt;

var i,n,d:integer;

      S:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

   write('Cac so tu 1 -> ',n,' la: ');

   for i:=1 to n do

     begin

        write(i:3);

        inc(d);

     end;

   writeln('Co ',d,' so tu 1 -> ',n,');

readln;

end.

3)

program ct;

uses crt;

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

      i,n:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   write('Cac phan tu duong la: ');

   for i:=1 to n do

     if A[i]>0 then write(A[i]:3);

readln;

end.

4)

program ct;

uses crt;

var i,n,d:integer;

      S:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     begin

        inc(d);

        S:=S+4*i;

     end;

   write('Co ',d,' so la boi cua 4');

   writeln('Tong chung la: ',S);

readln;

end.

Học tốt!