program bt2;

uses crt;

var a:array[1..250] of integer;

      i,n: byte;

      tong: real;

begin 

     clrscr;

      writeln(' nhap so luong cac phan tu '); readln(n);

      for i:=1 to n do

           begin 

              writeln(' nhap gia tri tung phan tu: [',i,']');

              readln(a[i]);

          end;

    tong:=0

    for i:=1 to n do if (a[i] > 0) then tong:=tong+a[i];

    writeln(' tong cac phan tu khong am la: ',tong:0:0);

    readln;

end.

program bt1;

uses crt;

var a:array[1..100] of integer;

      i,n,t: byte;

begin

      clrscr;

      writeln(' nhap so luong cac phan tu '); readln(n);

      for i:=1 to n do

           begin 

              writeln(' nhap gia tri tung phan tu: [',i,']');

              readln(a[i]);

          end;

     t:=0;

     for i:=1 to n do if i mod 3 <>0 then t:=t+1;

     writeln(' so phan tu khong chia het cho 3 la: ',t);

     readln;

end. 

HELPP MEE HỠI NHỮNG HSG TIN PLSSS <3

Cho var a:array[52..101] of integer;

?..Hãy viết chương trình: tính hiệu các phần tử có SỐ THỨ TỰ CHẴN.

Đặc điểm của ngành công nghiệp năng lượng??

helppp mee ạ .... !

hướng của vecto động lượng được xác định như thế nào ?

Câu 1: Trong xi lanh của một động cơ đốt trong có 2dm³ hỗn hợp khí dưới áp suất 1atm và nhiệt độ 27⁰C. Pittông nén xuống làm cho thể tích hỗn hợp giảm bớt 1,8dm³ và áp suất tăng lên thêm 14atm. Tính nhiệt độ của hỗn hợp khí nén

Câu 1: Trong quá trình biến đổi đẳng tích thì hệ

A. nhận công và nội năng tăng. B. nhận nhiệt và nội năng tăng.

C. nhận nhiệt và sinh công. D. nhận công và truyền nhiệt.