Program OdwrocWektory(output);
var
w1: array [1..10] of integer;
w2: array [1..10] of integer;
tmp: array [1..10] of integer;
i: integer;
begin
for i := 0 to 9 do
begin
w1[ i ] := i+1 ;
w2[ i ] := i+11;
end;
writeln('Stan początkowy wektorów:');
for i:= 0 to 9 do
writeln('Dla indeksu w1[',i,'] = ', w1[i], ' oraz w2[',i,']= ', w2[i]);
for i := 0 to 9 do
begin
tmp[i] := w1[9 - i];
w1[i] := tmp[i];
tmp[i] := w2[9 - i];
w2[i] := tmp[i];
end;
writeln('A teraz efekt odwrócenia obu wektorów:');
for i:= 0 to 9 do
writeln('Dla indeksu (', i, ') w1 = ', w1[i], ' oraz w2= ', w2[i]);
end.
Re: OdwrocWektory 
From Sweltering Flamingo, 9 Years ago, written in Pascal.
This paste is a reply to
OdwrocWektory from Maciek
- go back
Embed