Помогите написать прогу на паскале. Помогите написать программу на паскале. Сжать массив, удалив нули.

Question

Александр · Accepted Answer

var 
 c, n, nn: integer; 
 a: array [1..100] of integer; 
begin 
 randomize; 
 write('n (<= 100)? '); 
 readln(n); 
 write('random array:'); 
 for c := 1 to n do begin 
 a[c] := random(5); 
 write(' ', a[c]); 
 end; 
 writeln; 
 nn := 1; 
 for c := 1 to n do 
 if a[c] <> 0 then begin 
 a[nn] := a[c]; 
 inc(nn); 
 end; 
 n := nn - 1; 
 write('result array:'); 
 for c := 1 to n do write(' ', a[c]); 
end.

Александр Мишкин · Answer

четвертый год изучаю паскаль и до сих пор ничего понять не могу