Здравтсвуйте! помогите сделать программу на паскале:
составить программу, позволяющую определить первый повторяющийся элемент массива и вывести его на экран.
Заранее благодарен!
Полная версия: Повторяющиеся элементы в массиве
Код
const m=10;
var mas1:array[1..m] of integer;
a,b,c:integer;
begin
for a:=1 to m do
begin
writeln('Введите элемент массива №',a);
readln(mas1[a]);
end;
for a:=1 to m do
begin
c:=0; {тренируем переменную С для наилучшего быстродействия}
c:=mas1[a];
for b:=c+1 to m do
begin
if (c=mas1[b]) then begin
writeln('Первый повторяющийся элемент массива - ',c);
readln;
halt;
end;
end;
end;
end.
var mas1:array[1..m] of integer;
a,b,c:integer;
begin
for a:=1 to m do
begin
writeln('Введите элемент массива №',a);
readln(mas1[a]);
end;
for a:=1 to m do
begin
c:=0; {тренируем переменную С для наилучшего быстродействия}
c:=mas1[a];
for b:=c+1 to m do
begin
if (c=mas1[b]) then begin
writeln('Первый повторяющийся элемент массива - ',c);
readln;
halt;
end;
end;
end;
end.
А вообще нужно создавать свои темы.
Цитата(Unconnected @ 23.11.2008 21:54) 
А вообще нужно создавать свои темы.
Unconnected, при всем уважении к тебе осмелюсь сказать: ты был не прав, ответив Гостю. Ты помог ему забить чужую тему, и не более того. И приписка твоя ничего не меняет. То есть, тем более: знаешь, что не надо, а делаешь..
Гости ленятся регистрироваться и лезут в чужие темы. Буду жестко удалять такие гостевые вопросы в чужих темах.
Фи-и-и тебе, Unconnected..
| М | Разделяю тему |
Добавлено через 11 мин.
Unconnected, а ты прогонял свою прогу? По ходу это обязательно, если не сделано оговорок (Правила раздела, п.7). Ты прогони, развлекись..
Меня еще умилила вот эта пара строк:
c:=0;
c:=mas1[a];
Первая строка - это разминка перед работой?
Да, прогу я запускал, работает, а что?
Как много вместило в себя это междометие...Спасибо.
Цитата
Фи-и-и тебе, Unconnected..
Как много вместило в себя это междометие...Спасибо.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.