cho dãy số nguyên A gồm 10 phần tử. Viết đoạn lệnh nhập giá trị ngẫu nhiên cho A

0 bình luận về “cho dãy số nguyên A gồm 10 phần tử. Viết đoạn lệnh nhập giá trị ngẫu nhiên cho A”

1. * Đoạn lệnh nhập gía trị cho A:

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

         i:integer;

   begin clrscr;

      for i:= 1 to 10 do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

   Học tốt!

   Bình luận

2. uses crt;
   var n,i,d : integer;
   a : array[1..100] of longint;
   begin clrscr;
   randomize;
   for i:=1 to 10 do begin a[i]:=random(100)-random(100);
    writeln(a[i]); end;
   readln
   end.

   Bình luận