Цитата:
Сообщение от Vikki
3. В одномерном массиве удалить те элементы, для которых a[i]>=i
|
Код:
Const
Nmax=20;
Var
a,b:Array[1..Nmax] of Integer;
N,M,i:Integer;
Begin
Write('Number of elements (<20) = ');
Readln(N);
M:=0;
Randomize;
Writeln('Old:');
For i:=1 to N do
begin
a[i]:=Random(N);
write(a[i]:4);
if a[i]<i then
begin
Inc(M);
b[M]:=a[i];
end;
end;
Writeln;
Writeln('New:');
For i:=1 to M do write(b[i]:4);
Readln
End.