1)в последовательности из n-чисел обнулить все элементы, имеющие одинаковых соседей.обработку чисел оформить в виде подпрограммы
2)дан текстовый файл состоящий из строк. в каждой строке удалить все символы, не являющиеся цифрами. обработку строки оформить в виде подпрограмм
:)))
|
|
|
|
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
|
|
|
|
