skús takto:
Kód:
program polia;
uses CRT;
const MAX=10;
var a,b:array[1..MAX] of integer;
vstup_a,vstup_b:text;
I,k:integer;
cislo_a,cislo_b:string;
begin
assign(vstup_a,'a.txt');
assign(vstup_b,'b.txt');
reset(vstup_a);
reset(vstup_b);
for I:=1 to MAX do begin
readln(vstup_a,cislo_a);
val(cislo_a,a[i],k);
readln(vstup_b,cislo_b);
val(cislo_b,b[i],k);
end;
close(vstup_a);
close(vstup_b);
clrscr;
writeln('A B A+B A-B A*B A/B');
writeln('----------------------------------------');
for I:=1 to MAX do begin
write(a[i],' ',b[i],' ',a[i]+b[i],' ',a[i]-b[i],' ');
writeln(a[i]*b[i],' ',a[i]/b[i]:4:2);
end;
repeat until keypressed;
end.
ešte sa pohraj s tým výpisom, odporúčam gotoxy.. ale s tým sa mi nechce hrať teraz