Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  yes
Language: PASCAL
Code:
type mang=array[1..25]of integer;
var i,n,i5,i7,tam,stt,t7: integer;
    A5,A7:mang
begin
   stt:=13;
   i5:=0;
   i7:=0;
   write('Nhap N: ');
   readln(n);
   while (n>25) do
     begin
       write('Nhap lai N: ');
      readln(N); 
  end;
  writeln('Mang A da duoc tao la: ');
   for i:=1 to n do
    begin 
     tam:=random(78)+20+13;
     write(tam,' ');
     if tam mod 5=0 then
     begin
      inc(i5);
      A5[i5]:=tam;
     end;
    t7:=0;
    inc(i7);
    A7[i7]:=tam;
    while tam>0 do
         begin
          t7:=t7+ tam mod 10;
          tam:=tam div 10;
         end;
    if t7<=7 then
       dec(i7);
   end;
   writeln;
   writeln('Cac phan tu chia het cho 5 la:');
   for i:=1 to i5 do
    write(A5[i],' ');
   writeln;
   writeln('Cac phan tu co tong chu so lon hon 7 la: ');
   for i:=1 to i7 do
    write(A7[i],' ');
    readln;
end.     
Comments: