Question

Câu 1: Khởi động chương trinh Free Pascal thực hiện các yêu cầu sau:

a, Khai báo một mảng các phân tử gồm 100 số nguyên

b, Nhập các phần tử của mảng từ bản phim

c. Hiển thị phần tử lớn nhất trong mảng

d. In ra màn hình các phần tử là số lẻ trong mảng 

e, sắp xếp mảng theo thứ tự giảm dần 

Answer 1

uses crt;

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

i,n,max,tam,j:integer;

begin

clrscr;

n:=100;

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do  

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

writeln('Gia tri lon nhat la: ',max);

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('Day so giam dan la: ');

for i:=1 to n do 

  write(a[i]:4);

readln;

end.