Câu 1: Viết chương trình: nhập một xâu S từ bàn phím (không quá 50 kí tự)và kí tự CH. In ra màn hình có bao nhiêu kí tự trong xâu S.
Câu 2: Tạo mảng A gồm n (n<=100) số nguyên , mỗi số có giá trị không quá 300 và số nguyên k.
a, In ra màn hình các số bé hơn k và tổng của chúng
b. In ra màn hình số âm lớn nhất của dãy
Câu 1:
uses crt;
var s:string;
ch:char;
begin
clrscr;
write('Nhap xau S:'); readln(s);
write('Nhap ki tu:'); readln(ch);
writeln('Trong xau ',s,' co ',length(s),' ki tu');
readln;
end.
Câu 2:
uses crt;
var a,b:array[1..100]of integer;
n,i,k,t,ln,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=300;
end;
write('Nhap so k='); readln(k);
writeln('Cac so be hon ',k,' trong day la:');
t:=0;
for i:=1 to n do
if a[i]<k then
begin
write(a[i]:4);
t:=t+a[i];
end;
writeln;
writeln('Tong cua cac so nho hon ',k,' trong day la: ',t);
dem:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end;
ln:=b[1];
for i:=1 to dem do
if ln<b[i] then ln:=b[i];
writeln('So am lon nhat trong day A la: ',ln);
readln;
end.
