www.techinf1.fora.pl

isar

zadanie polega na wyzerowaniu tablicy(do kazdej komorki tablicy trzeba wpisac zero):

trzeba uzyc petli, jednej zmiennej do sterowania petla,
i jednej zmiennej tablicowej
a program bedzie wygladal tak:

program zerowanie ;
var a : integer ; {zmienna do sterowania tablica}
tab : array[1..10] of integer ; {zmienna tablicowa}

begin
for a:=1 to 10 do {petla, pomocna w zerowaniu }
{ tablicy}
tab[a]:=0; {do tablicy przypisuje 0, zmienna A w tym przypadku}
{steruje tablica}
end;
readln;
end.