С динамическим массивом:
<em>VAR</em>
<em> i: Integer;</em>
<em> a: Array of Char;</em>
<em>BEGIN</em>
<em> Assign(input, 'input.txt'); ReSet(input);</em>
<em></em>
<em> SetLength(a, 1);</em>
<em> While (not eoln(input)) do begin</em>
<em> SetLength(a, Length(a)+1);</em>
<em> Read(a[Length(a)-1]); End;</em>
<em></em>
<em> For i := 1 to Length(a)-1 do</em>
<em> If (not Odd(i)) then a[i] := '-';</em>
<em></em>
<em> For i := 1 to Length(a)-1 do Write(a[i]);</em>
<em>END.</em>
<em>VAR</em>
<em> i, kol: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> For i := 1 to 20 do Read(a[i]);</em>
<em />
<em> For i := 1 to 20 do</em>
<em> If (a[i] < -20) then Inc(kol);</em>
<em />
<em> Write(kol);</em>
<em>END.</em>
Всмысле полное, моделируешь дорогу, если тебе по таблице не удобно, там все видно будет. Самый короткий 4
AE-EC-CD
Не уточнили язык - получите паскаль. Мог бы сделать на С++
program Znanija;
var n,i:integer;
begin
readln(n);
if n < 0 then
begin
writeln('Я не разработал программ');
exit;
end;
write('Я разработал ', n, ' ');
case n of
1:writeln('программу');
2..4:writeln('программы');
0,5..10:writeln('программ');
end;
end.