Нужно решить задачу!!!!

ПОмогите!! НЕ умею решать задачи через Паскаль, а очень нужно.

Дано n чисел, все члены, меньше двух заменить нулём.
Дана последовательность символов, подсчитать кол-во пробелов.Послед. законч. косой чертой.



ВСЕМ СПАСИБО!!!!!!!

Ну если тебе правдо надо то пиши мне на мыло или сюда.
Это элементарно.
Есть следующие вопросы:
По первой задаче:
1. Сколько n?
2. Данные вводятся в массив или читаются из файла и куда пишутся на монитор или в файл?
По второй задаче:
1. Откуда строчка берется вводится или читается из файла и куда выводится?
2. Я правильно понял что к полученной строчке надо прибавить в конец вот этот символ "/"?

program numero_uno;
//Еще должен быть какой-то uses - не помню, хоть убей, какой.
//Спросите у сокурсников, если не заработает
const
n = 10;
type
TIntArray = array [1..n] of integer;
var
i : integer;
arr_n : TIntArray = (-1,-2,-3,-4,0,1,7,8,9,10);
begin
for i := 1 to n do
begin
write(arr_n[i], ' ');
if arr_n[i] < 2 then arr_n[i] := 0;
writeln(arr_n[i]);
end;
readln;
end.

[Сообщение изменено пользователем 24.10.2003 18:15]

program numero_DVA;
//Еще должен быть какой-то uses - не помню, хоть убей, какой.
//Спросите у сокурсников, если не заработает
var
i, cnt: integer;
IniStr : string;
begin
IniStr := 'Сколько же пробелов в этой долбаной строке? И вообще, нахрена девицам Паскаль???';
cnt := 0;
i := 0;
writeln('Дано: строка "' + IniStr + '"');
while (i < Length(IniStr))and(IniStr[i] <> '/') do
begin
if IniStr[i] = ' ' then cnt := cnt + 1;
i := i + 1;
end;
if pos('/', IniStr) = 0 then IniStr := IniStr + '/';
writeln('Пробелов в строке "' + IniStr + '": ', Cnt);
readln;
end.


Так как не совсем ясно, что нужно делать с косой чертой, то в этом модуле
1) Пробелы считаются только до косой черты "/"
2) Если косой черты "/" не найдено, то пробелы считаются до конца строки, после чего в конец прибавляется "/"

[Сообщение изменено пользователем 24.10.2003 18:24]

to PSH:
Первая работать не будет я тебе точно говорю, это паскаль, а не делфи тебе, так писать нельзя: arr_n : TIntArray = (-1,-2,-3,-4,0,1,7,8,9,10); Ошибка будет.

Для очистки экрана надо подключить библиотеку:
USES Crt; {в самом начале программы}
А для очистки экрана вызвать процедуру, где это надо:
Clrscr;