Facebook

Re: OdwrocWektory safest cryptocurrency exchange

From Sweltering Flamingo, 9 Years ago, written in Pascal.
This paste is a reply to OdwrocWektory from Maciek - view diff
URL https://pastebin.pl/view/ff92577f
Embed
Download Paste or View Raw
Hits: 891
  1. Program OdwrocWektory(output);
  2. var
  3. w1: array [1..10] of integer;
  4. w2: array [1..10] of integer;
  5. tmp: array [1..10] of integer;
  6. i: integer;
  7. begin
  8.     for i := 0 to 9 do
  9.         begin
  10.            w1[ i ] := i+1 ;  
  11.            w2[ i ] := i+11;
  12.         end;
  13.     writeln('Stan początkowy wektorów:');
  14.     for i:= 0 to 9 do
  15.       writeln('Dla indeksu w1[',i,'] = ', w1[i], ' oraz w2[',i,']= ', w2[i]);
  16.     for i := 0 to 9 do
  17.         begin
  18.             tmp[i] := w1[9 - i];
  19.             w1[i] := tmp[i];
  20.             tmp[i] := w2[9 - i];
  21.             w2[i] := tmp[i];
  22.         end;
  23.     writeln('A teraz efekt odwrócenia obu wektorów:');
  24.     for i:= 0 to 9 do
  25.     writeln('Dla indeksu (', i, ') w1 = ', w1[i], ' oraz w2= ', w2[i]);
  26. end.

Reply to "Re: OdwrocWektory"