Witam, proszę o pomoc przy następującym programie. A mianowicie mam napisać tablicę 3 wymiarową dynamiczną typu rzeczywistego, kasowanie wybranego elementu.
program jakis;
uses crt;
const ile=20;
var tab : array[1..ile,1..ile,1..ile] of integer;
a,b,c,ile1,ile2,ile3,:integer;
begin
clrscr;
writeln('deklaracja tej tablicy');
write('podaj ilosc elementow: ');
readln(ile1);
write('podaj ilosc elementow: ');
readln(ile2);
write('podaj ilosc elementow: ');
readln(ile3);
for a:=1 to ile1 do
begin
for b:=1 to ile2 do
begin
for c:=1 to ile3 do
begin
write('podaj wartosc elementu: ');
readln(tab[a,b,c]);
end;
end;
end;
for a:=1 to ile1 do
begin
for b:=1 to ile2 do
begin
for c:=1 to ile3 do
begin
writeln('wartosc elementu tablicy: ',tab[a,b,c]);
end;
end;
end;
readln;
end.
Jakie komendy trzeba wprowadzić, by skasować wybrany element tablicy ?