ПОЖАЛУЙСТА ПОМОГИТЕ!

[mistertvister]

Задача. Составить Паскаль-программу подсчета в последовательности их n чисел всех отрицательных с указанием их местоположения в последовательности.
или
Задача. Составить схему алгоритма и Паскаль-программу сжатия строки символов (длиной строки 80 символов).
Количество удаленых пробелов подсчитать.
СПАСИБО ЗАРАНИЕ.

[Lemo]

Имхо, не вижу наработок........

[Sparky]

вторая задача:
var
s:string;
i:integer;
count:integer
begin
read(s);
count:=0
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
delete(s,i,1);
inc(count);
end;
write(s);
write(count);
end.

[ОДИНОЧЕСТВО В СЕТИ]

1

for i:=1 to n do
if a[i]<0 then begin inc(count);
writeln(i);
end;

2

for i:=1 to length(s) do
if s[i]=' ' then begin inc(count);
s[i]:='';
end;

[Sparky]

const
n=5;
var
a:array [1..n] of integer;
count,i:integer;
begin
for i:=1 to n do
read(a[i]);

for i:=1 to n do
begin
if a[i]<0 then
begin
writeln(i);
inc(count);
end;
end;
write(count);
end.

[Sparky]

если помогли весы по середине

[Impuls1989]

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

если помогли весы по середине

Весы по середине ничего не дадут, если число сообщений < 60 и репутация меньше 20 или 30 (хз, точно не помню)