Umiestnenie súboru www.TrSek.com/zadania/polecopy.pas{ POLECOPY.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypracujte program pre prekopirovanie pola A do B v obratenom poradi }
{ A(1) do B(n), A2 do B(n-1) }
{ }
{ Datum:04.02.2004 http://www.trsek.com }
program pole_naopak;
uses crt;
var a:array[1..100] of real;
b:array[1..100] of real;
i:integer;
n:integer;
begin
ClrScr;
WriteLn('Program prekopiruje pole A do B v opacnom poradi.');
Write('Zadaj pocet poloziek pola A:');
ReadLn(n);
{ nacita az pole }
for i:=1 to n do
begin
Write('Zadaj a[',i,']=');
ReadLn(a[i]);
end;
{ otocenie pola A do B }
for i:=1 to n do
b[n-i+1] := a[i];
WriteLn;
WriteLn('Otocene pole B je');
WriteLn;
WriteLn('Por| A | B |');
WriteLn('----------------------');
{ vypise pole A aj obratene pole B }
for i:=1 to n do
WriteLn( i:3,'|', a[i]:8:3, '|', b[i]:8:3, '|' );