3039682204

C:\FPC\2.2.4\bin\i386-win32\fp.exe

File Edit Search Run Compile Debug Tools Options Windów Help

=[■ ]^=    = piec.pas

Program piec;

<program przepisujący elementy dwuwymiarowej tablicy <5x5> do tablicy jednowymiarowej <25>, wyświetlić obie tablice -poniżej odwrotnie > oar tabela_jednowymiarowa : array [ . .2E] of integer; tabela_dwuwymiarowa : array [ ..5,1..5] of integer; a,b,c : integer;

begin

for a:=l to 25 do begin

tabela_jednowymiarowa[a]: =a; write<tabela_jednowymiarowa[a], * * >;

end;

for a:=1 to 5 do begin

for b:=l to 5 do begin

c: =c+l;

tabe la_dwuwy miar owa [a, b ]: =tabe la_jednowymiarowa Cc ] write<tabela_dwuwymiarowa[a,b],' ' >;

end;

end; readln;