Помогите решить первый пункт с массивом.

Question

Помогите решить первый пункт с массивом.

---

Answer 1

Const xn =100;var a,b,i,j:integer;t:string;n:array[0..xn] of integer;beginReadln(b);for i:=0 to b do beginn[i]:= round(random() *10);t:= 'n[' + inttostr(i) + '] =';writeln(t, n[i]);end;
writeln;writeln;
Readln(a,b);for i:=a to b do beginn[i]:= Round(random() *10);t:= 'n[' + inttostr(i) + '] =';writeln(t, n[i]);end;
writeln;writeln;

var n1:array[0..xn] of real;beginReadln(b);for i:=0 to b do beginn1[i]:= random() *10;t:= 'n1[' + inttostr(i) + '] =';writeln(t, n1[i]);end;
writeln;writeln;
Readln(a,b);for i:=a to b do beginn1[i]:= random() *10;t:= 'n1[' + inttostr(i) + '] =';writeln(t, n1[i]);
end;end;end.