1. Cho mảng B gồm M phần tử kiểu nguyên (M<=100) hãy nhập giá trị các phần tử đó ngẫu nhiên trong đoạn 0..199 . Tìm phần tử lớn nhất và nhỏ nhất của mảng. dưa kết quả ra màn hình 2. Cho mảng A gồm N phần tử (N<=50) hãy nhập giá trị các phần tử đó vào từ bàn phím biết các phần tử thuộc đoạn từ 20 đến 100 . Đếm số phần tử chẵn và sắp xếp mảng giảm dần . Đưa kết quả ra màn hình 3. CHIỀU NAY MÌNH THI CẦU XIN MỌI NGƯỜI GIÚP ĐỠ MÌNH
1. program kookie;
uses crt;
const Nmax = 100;
type
ArrInt = array |0..99] of integer;
var
A: ArrInt;
a, i, S, P, s, p: integer;
begin
clrscr;
write(‘ so phan tu cua mang:’);
readln(N);
for i:=0 to 99 do
begin
write(‘ phan tu thu i :’);
readln(A|I]);
end;
p:=A|0];
P:=0;
for i:=1 to 99 do
if A|1]>p then
begin
s:=A|i]
S:=i;
p:=A|i-1];
P:=i-1;
end;
writeln(‘so lon nhat la:,’s);
writeln(‘chi so lon nhat la:,’S);
writeln(‘so nho nhat la:,’p);
writeln(‘chi so lon nhat la:,’P);
readln
end.
2.program Yunki;
uses crt;
const Nmax = 50;
var
a: array|20..100] of integer;
i, d ,t, N: integer;
begin
clrscr;
write(‘ nhap phan tu cua day la :’);
readln(N);
for i:=20 to 100 do
d:=0;
if a|i] mod 2 = 0 then
d:=d+1;
begin
write(‘a|’,i,’]=’);
readln(a|i]);
end;
writeln(‘so phan tu chan la:,’d);
for i:=20 to 100 do
if a|i]<a|i+1] then
begin
a|i]:=t;
t:=a|i+1];
a|i]:=a|i+1];
end;
writeln(‘day duoc sap xep la:’);
for i:=20 to 100 do
write(a|i]/4);
readln
end.
Câu 1:
uses crt;
var b:array[1..100] of longint;
m,i,max,min:longint;
begin
clrscr;
write(‘Nhap so luong phan tu (m<=100): ‘); readln(m);
for i:=1 to m do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(b[i]);
end;
max:=b[1]; min:=b[1];
for i:=2 to m do
begin
if b[i]>max then max:=b[i];
if b[i]<min then min:=b[i];
end;
writeln(‘Max: ‘,max);
write(‘Min: ‘,min);
readln;
end.
Câu 2:
uses crt;
var a:array[1..50] of longint;
n,i,j,tg,d:longint;
begin
clrscr;
write(‘Nhap so luong phan tu (N<=50): ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
if a[i] mod 2=0 then inc(d);
end;
writeln(‘So luong phan tu chan: ‘,d);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write(‘Day giam dan: ‘);
for i:=1 to n do write(a[i],’ ‘);
readln;
end.