[Testing] Pascal minify |Output|
VailMe Aug 17th, 2019 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- I know this is anoying but i don't care XD
- Just a shitty stuff i do when i got bored from Lua
- I will put the download link on a new paste, when i feel happy
- uses crt;var n,tam:integer;i,j:longint;t,c,s:array[1..1000]of integer;begin clrscr;read(n);for i:=1 to n do read(t[i]);writeln();for i:=1 to n do read(c[i]);for i:=1 to n do s[i]:=c[i]+t[i];For i:=1 To N-1 Do For j:=i+1 To N Do If s[i]>s[j] Then Begin
- Tam:=s[i]; s[i]:=s[j]; s[j]:=Tam;End;writeln('res: ',s);readln;readln;end.
RAW Paste Data