Kód: Vybrať všetko

program polia;
uses crt;
var i:byte;
const a : array [1..10] of integer = (11,12,13,14,15,16,17,18,19,10);
      b : array [1..10] of integer = (11,12,13,14,15,16,17,18,19,10);
begin
clrscr;
for i:=1 to 10 do writeln
 (a[i],'+', b[i],'=',a[i] + b[i],'  ',
 a[i],'-', b[i],'=',a[i] - b[i],'  ',
 a[i],'*', b[i],'=',a[i] * b[i],'  ',
 a[i],'/', b[i],'=',a[i] / b[i]:5:2);

readln;
end.

Kód: Vybrať všetko

1
2
3
.
.
.
20

Kód: Vybrať všetko

program polia;
uses crt;

type cisla = array [1..10] of integer ;
var i:byte;
    f:file of cisla;
    a,b:cisla;

begin
a[1]:=10;
a[2]:=11;
a[3]:=12;
a[4]:=17;
a[5]:=16;
a[6]:=15;
a[7]:=18;
a[8]:=10;
a[9]:=18;
a[10]:=19;
b[1]:=10;
b[2]:=11;
b[3]:=12;
b[4]:=15;
b[5]:=14;
b[6]:=11;
b[7]:=16;
b[8]:=17;
b[9]:=18;
b[10]:=12;

clrscr;
assign(f,'filepole.dat');
rewrite(f);
for i:=1 to 10 do begin

write(f,a);
write(f,b);


end;

close(f);
assign(f,'filepole.dat');
reset(f);
read(f,a);
read(f,b);
for i:=1 to 10 do begin writeln
 (a[i],'+', b[i],'=',a[i] + b[i]:2,'  ',
 a[i],'-', b[i],'=',a[i] - b[i]:2,'  ',
 a[i],'*', b[i],'=',a[i] * b[i]:3,'  ',
 a[i],'/', b[i],'=',a[i] / b[i]:4:2);
 end;
close(f);
readln;
end.