câu 1

a/ var A:array[1..100] of char;

           n,i:byte;

b/ var s:string[100];

câu 2

program tinhtich;

uses crt;

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

      n,i,x:integer;

      t:longint;

begin

clrscr;

write('Nhap so luong phan tu: ');  readln(n);

writeln('Nhap tung phan tu cua day: ');

for i:=1 to n do

  begin

    write('Nhap A[',i,']: ');

    readln(A[i]);

  end;

write('Nhap x: ');

readln(x);

t:=1;

for i:=1 to n do

  if A[i]<=x then t:=t*A[i];

write('Tich cac so nho hon hoac bang ',x,' la: ',t);

readln

end.

Câu 1:

a) Var a:array[1..100]of char;

b)Var s:string[100]

Câu 2:

uses crt;
var i,n,x,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('n,x=');readln(n,x);
   t:=1;
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i]<=x then t:=t*a[i];
      end;
    writeln('Tich cac phan tu be hon hoac bang x la: ',t);
readln
end.

Xin hay nhất