Question

ARANJATI IN ORDINEA POTRIVITA PROVRAMUL !!! VA ROG !!

Program prog;
const n=5;
Type abc=1..N;
Tablou=Array [abc] of integer;
var i:integer; A tablou;
Procedure Proc (T:Tablou;x,y:abc);
begin
if x<=y then
begin
write (T[x]:4); Proc(T,x+1,y);
end
end;
begin
For i:=1 to N do readln (A[i]); Proc(A,1,n); readln
end.

Answer 1

Program prog;
const n=5;
Type abc=1..N;
Tablou=Array [abc] of integer;
var i:integer; A :tablou;
Procedure Proc (T:Tablou;x,y:abc);
begin
if x<=y then
begin
write (T[x]:4); Proc(T,x+1,y);
end
end;
begin
For i:=1 to N do readln (A[i]); Proc(A,1,n); readln
end.

Putin probabil ca conditia sa se refere la aranjarea codului, insa daca da atunci iata cum el ar mai putea arata.


program prog;

const
  n = 5;

type
  abc = 1..N;
  Tablou = Array [abc] of integer;

var
  i: integer;
  A: tablou;

procedure Proc(T: Tablou; x, y: abc);
begin
  if x <= y then
  begin
    write(T[x]:4);
    Proc(T, x + 1, y);
  end
end;

begin
  for i := 1 to N do
    readln(A[i]);
  Proc(A, 1, n);
  readln
end.