Bài 1: Viết ct nhập 1 dãy số gồm n số (n nhập từ bàn phím). Tìm và in ra giá trị lớn nhất trong dãy số vừa nhập.
Bài làm:
program lonnhat;
uses crt;
var A:array[1..100] of integer;
       i,n,max:integer;
begin
write('nhap n');readln(n);
for i:=1 to n do 
begin; write( ' a[ ',i,']= ');readln(a[i]); end;
max:=a[i];
for i:=1 to n do  if a[i]>max then a[i]:=max;
write('so lon nhat trong mang la',max);
readln;
end.

Bài 2: viết ct nhập 1 dãy số gồm n số(n nhập từ bàn phím). Đếm và in ra trong dãy số có bn số âm, dương.
Bài làm:
program dayso;
uses crt;
var am,duong,i,n:integer;
      A: array[1..100] of integer;
begin clrscr;
writeln('nhap n='); readln(n);<br />for i:=1 to n do <br />begin; writeln('A[i]='); readln(A[i]); end;
am:=0; duong:=0;
for i:=1 to n do 
begin;
if A[i] > 0 then duong:=duong+1;
if A[i] < 0 then am:=am +1;
end;
writeln('co tat ca ',duong,' so duong va ',am,' so am trong day'); 
readln;
end.