dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
const n=12;
var
a: array[1..2*n] of integer;
m,i,j,k: integer;
begin
randomize;
for i:=1 to n do a[i]:=trunc(70*random-10);
writeln('Old array:');
for i:=1 to n do write(a[i]:4);
writeln('');
writeln('k=?');
readln(k);
m:=n;
for i:=1 to n do if (abs(a[i]) mod 10)=k then inc(m);
if n=m then writeln('Array not have the necessary elements');
for i:=1 to m do
if (abs(a[i]) mod 10)=k then
begin
for j:=m downto i+2 do a[j]:=a[j-1];
a[i+1]:=k;
inc(i);
end;
writeln('New array:');
for i:=1 to m do write(a[i]:4);
writeln('');
writeln('Press ENTER');
readln;
end.
|
Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 23:59 21-12-2011 | Исправлено: dimitriy7, 00:03 22-12-2011 |
|
