All pastes #791228 Raw Edit

Zeug

public text v1 · immutable
·published 2007-11-20 20:13 UTC
rendered paste body
Program TauscheArray;

VAR	i, h:integer;
	Zahlen:Array[1..100] OF Integer;

BEGIN
	for i:=1 to 100 do
		Zahlen[i]:= i;
	for i:=1 to 50 do begin
		h:=zahlen[i];
		zahlen[i]:=zahlen[101-i];
		zahlen[101-i]:=h;
	end;	
	for i:=1 to 100 do
		WriteLn(Zahlen[i]);
END.