Question

Turbo Pascal. Program obsługujący tablice wymiarową 10x10 i wypełnia losowymi liczbami wszystkie elementy a obie przekątne wypełnia wartościami 0. Gotową tablice zachować w pliku elementowym.

Answer 1

VAR
tab : array[1..10, 1..10] of real;
i,j:integer;
plik:file of tab;

begin
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
if j=1 then tab[i,j]:=0 else tab[i,j]:=random(20);
if j=10 then tab[i,j]:=0;
end;
end;

for i:=1 to 10 do
for j:=1 to 10 do
begin
assign(plik,'d:\tablica.txt');
rewrite(plik);
write(plik,tab[i,j]);
close(plik);
readln;
end;
end;
end.