0 GP cũng đã được danh hiệu rồi bạn nhé

sao tui 5GP r mà hổng có j hết à

Program HOC24;

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

i,max,min,n: integer;

begin

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

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

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

for i:=1 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

writeln('So nho nhat la :',max);

write('So lon nhat la: ',min);

readln

end.

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

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

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

uses crt;

var i:integer;

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

begin

clrscr;

for i:=1 to 20 do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to 20 do

if a[i] mod 2=1 then write(a[i]:3);

readln;

end.

Var: Dùng để khai báo những biến cần sử dụng trong chương trình

Program HOC24;

var i,n,d: integer;

a: array[1..32000] of integer;

t1,t,t0: longint;

begin

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

t:=0; t0:=0; t1:=0; 

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i]>0 then t:=t+a[i];

if a[i]<0 then t1:=t1+a[i];

if ai=0 then t0:=t0+1;

end;

writeln('Tong cac so duong la: ',t);

writeln('Tong cac so am la: ',t1);

write('Co ',t0,' so 0 trong day');

readln

end.

uses crt;

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

i,n,dem,t1,t2:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t1:=0;

t2:=0;

dem:=0;

for i:=1 to n do 

  begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

if a[i]=0 then inc(dem);

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

writeln('So so 0 la: ',dem);

readln;

end.

a) Xác định bài toán

-Input: Dãy n số

-Output: Tổng các số dương, tổng các số âm

b) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: t1←0; t2←0; i←1;

-Bước 3: Nếu a[i]>0 thì t1←t1+a[i]

nếu a[i]<0 thì t2←t2+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t1,t2

-Bước 7: Kết thúc

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

repeat

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

t:=t+n;

until t>=100;

writeln('Tong so quyen sach la: ',t);

readln;

end.

Bạn viết hết chương trình đi bạn

Câu 1: 

i có giá trị là 12;13;14

Câu 2: 

i có giá trị là 4 và 5

Câu 4:

j=6

k=12