Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program arrvergleichen (input, output);
- var
- z1arr:array[1..3] of integer = (1,8,4);
- z2arr:array[1..3] of integer = (5,3,7);
- sort:array[1..6] of integer;
- z1 : Integer;
- zahl2 : Integer;
- sortIndex : integer;
- one : integer;
- begin
- z1 := 1;
- z2 := 1;
- one := 1;
- for sortIndex := 1 to 6 do
- begin
- if (z1 <= 3) and (z1arr[z1] <= z2arr[z2]) then
- begin
- sort[sortIndex] := z1arr[z1];
- z1 := z1 + 1;
- end
- else
- begin
- sort[sortIndex] := z2arr[z2];
- z2 = z2 + 1; {Wenn ich die Zeile entferne läuft es aber bringt mir ja nix :(}
- end;
- end;
- for sortIndex := 1 to 6 do
- writeln (sort[sortindex]);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement