Question

Viết chương trình nhập từ bàn phím một số nguyên dương N (N <= 100). Tạo mảng A gồm N phần tử, mỗi phần tử là một số nguyên ngẫu nhiên có giá trị từ 1 đến 4. In ra màn hình mảng A.

Answer 1

uses crt;
const MN = 100;
var
a: array [1..MN] of integer;
n: integer;
Procedure Gen(m: integer);
var i: integer;
begin
Writeln('Hay nhap n:');​

Readln(n);

randomize; n := m;
for i := 1 to n do a[i] := random(m);

writeln(a[i]);

readln;
end.

Bastkoo Đúng chưa bạn?

Answer 2

uses crt;
var a:array[1..100]of integer;
i,j,n:integer;
begin
clrscr;
randomize;
write('nhap n='); readln(n);
for i:=1 to n do
a[i]:=random(4)+1;
for i:=1 to n do write(a[i]:4);
readln;
end.