Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Удалить из массива все нулевые элементы.(массивы)

Ответ оставил Гость

uses crt;
var
  m,i,k:integer; a:array [1..100] of integer;
begin
  clrscr; randomize;
  write(Количество элементов массива: );readln(k);
  for i:=1 to k do
  begin
    a[i]:=random(100)-50;
    write(a[i], );
  end;
  m:=0;
  writeln;
  for i:=1 to k do
    if a[i]=0 then inc(m)
    else a[i-m]:=a[i];k:=k-m;
  for i:=1 to k do
    write(a[i], );readln;
end.