1 viết chương trình nhập vào một mảng số nguyên. in ra dãy số nguyên dương 2 viết chương trình nhập vào một mảng số nguyên. tính tổng các số đó 3 viết chương trình nhập vào một mảng số nguyên. sắp xếp dãy số tăng dần 4 viết chương trình nhập vào một mảng số nguyên. tìm ra số lớn nhất số nhỏ nhất trong dãy số năn nỉ các bạn đó mai mik kiểm tra rồi

1.

program ct;

uses crt;

var i,n:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:=1 to n do

if A[i]>0 then writeln('day so duong la:',A[i]:2);

readln

end.

2.

program ct;

uses crt;

var i,n,s:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

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

writeln('tong la:',s);

readln

end.

3.

program ct;

uses crt;

var i,n,tam.j:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

  if A[i]>A[j] then

begin

tam:=A[i];

A[i]:=A[j];

A[j]:=tam;

end;

writeln;

write('day so dau khi sap xep la:');

for i:=1 to n do

write(A[i]:4);

readln

end.

4.

program ct;

uses crt;

var i,n,Max,Min:integer;

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

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Max:=A[1]; Min:=A[1];

for i:=2 to n do

begin

  if Max<A[i] then Max:=A[i];

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

end;

writeln('gia tri lon nhat la',Max);

writeln('gia tri nho nhat la',Min);

readln

end.