1.Uses crt;
Var
a:array[10..20] of integer;
i:Integer;
begin
clrscr;
for i:=10 to 20 do
a[i]:=i;
writeln (a[i],',');
End.
2. Var
b:array[2..8] of real;
1.Uses crt;
Var
a:array[10..20] of integer;
i:Integer;
begin
clrscr;
for i:=10 to 20 do
a[i]:=i;
for i:=10 to 20 do
writeln (a[i],',');
End.
2. Var
b:array[2..8] of real;