[B]Ну правда же, помогиет, сложности у меня с Паскалем...Очень надо Пару задачек![/B]

[Neytrino]

желательно код написать максимально доступно для чайников))

Первая задача
Дана символьная строка среди символов которой есть двоеточия. получить все символы расположенные между первым и вторым двоеточиями (если второго двоеточия нет вывести все символы после единственного двоеточия)

и Вторая задача
Дан файл F, элементы которого являются целыми числами. Описать функцию - (f), подсчитывающую сумму отрицательных элементов в файле F.

Заранее благодарю!

[MalCer]

2-ую задачу смотри тут

[Chudo4258]

1:

var s:string;
    i:integer;    
begin
write('Stroka:  '); readln(s);
i:=pos(':',S);
Delete(S,1,i);
i:=pos(':',S);
Delete(S,i,Length(s)-i+1);
writeln(s);
readln;
end.

[Neytrino]

Сообщение от MalCer

2-ую задачу смотри тут

Да Балин, Говорю ж, Чайник я, я это плохо все понимаю... Сидел с тетрадкой, так и не допер... Ну, хоть что-то... на крайняк у препода спрошу...