Есле я неошибаюсь то может из 200 из них 100
var
i,max:integer;
ar:array[0..200] of integer;
begin
randomize;
max:=0;
for i:=1 to 200 do <em>begin</em>
ar[i]:=random(200+1)-100;
if (ar[i] > max) then max:=ar[i];
if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' ');
<em>end;</em>
<em>writeln();</em>
for i:=1 to 200 do <em>begin</em>
if (ar[i] < 0) then ar[i]:=max;
if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' ');
<em>end;</em>
<span>
end.</span>
<span>Это клавиши Backspace и Delete. Delete удаляет все по правую сторону от курсора, а Backspace по левую сторону.</span>
Без операционной системы и программного обеспечения, ну и без компьютера, конечно