1. TEPLOTY Pole :array [1..40] of integer Assign(teplot. ´C:/teploty. txt´); Rewrite(teploty); For i:=1 to 7 do begin writeln(´zadaj teplotu´, i, ´dna´); Readln( pole[i]); Writeln(teploty. pole[i]); end; close(teploty); 2. NAHODNE CISLA... Ďalej »
Blog, 20. 5. 2013 15:32