Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Здравствуйте!помогите пожалуйста решить задачи!
1)в последовательности из n-чисел обнулить все элементы, имеющие одинаковых соседей.обработку чисел оформить в виде подпрограммы

2)дан текстовый файл состоящий из строк. в каждой строке удалить все символы, не являющиеся цифрами. обработку строки оформить в виде подпрограмм


:)))
1 | Автор: extremalka | 2012-04-23, 21:48   |  Репутация: [ + 0 ]
1)
var
a:array[1..100]of integer;
i,n:byte;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=2 to n-1 do begin
if a[i-1]=a[i+1] then a[i]:=0;
write(a[i],' ');end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-04-24, 19:08   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: