var A,B:array[1..100] of integer;
    i,j,p,k,n,q:byte;
    c:boolean;
begin
write('Введите размерность: ');
readln(n);
for i:=1 to n do
begin
write('введите ',i,'-й элемент');
read(A[i]);
write(A[i]:3);
end;
p:=0;q:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if (A[i]=A[j])and(i<>j) then 
inc(k);
if k=1 then
begin
j:=0;c:=true;
while (j<p)and(c) do
begin
inc(j);
if A[i]=B[j] then 
c:=false;
end;
if c then
begin
inc(p);
B[p]:=A[i];
end;
end;
if k>=1 then 
inc(q);
end;
writeln;
if p<>0 then
begin
writeln('Числа которые входят массив 2 раза');
for i:=1 to p do
write(B[i]:3);
end
else writeln('Нету чисел которые входят в массив 2 раза!');
writeln;
if q<>0 then writeln('Кол-во чисел входящих в массив более одного раза: ',q)
else
writeln('Нету повторяющихся чисел');
readln;
end.

Добавлено через 4 часа 8 минут
Срочно надо.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.08.2012, 16:47

Ответы с готовыми решениями:

Описать каждую строку кода
var A:array of integer; i,j,n:integer; begin write('Введите размерность: '); readln(n);...

Описать каждую строку кода
program zadanieshest; var A:array of integer; i,j:integer; begin for i:=1 to 9 do for j:=1 to...

Описать каждую строку кода
Здравствуйте! Опять надо написать значение каждой строки кода программы. var A:array of integer; ...

Описать каждую строку кода
program zadaniesem; var a: array of integer; b: array of integer; i,j,n:integer;...

	01.08.2012, 16:47

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.08.2012, 16:47

Помогаю со студенческими работами здесь

Описать каждую строку кода
Здравствуйте, опять надо расписать значение каждой строки в коде программы. var A:array of real; ...

Описать каждую строку кода
const n=20; var A,B:array of real; i,j:integer; begin writeln('Последовательность...

Описать каждую строку кода
Можно без объяснения эндов и бегинов. var A:array of byte; i,j,m,n,l,k,p,r,q,x,y:integer; ...

Описать каждую строку кода
var C:array of integer; A,B,temp:integer; i:integer; begin randomize; write('A =...

Описать каждую строчку кода функции либо описать как осуществляется решение этой данной функции
Дана функция и хотелось бы узнать как происходит решение это функции или же подписать каждую строку...

описать каждую строчку кода
Народ помогите пжлста понять программирование.Опишите каждую строчку плизз.Заранее пасибки!!!...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх