<span>1 Кбайт = 1024 байтам, т. е. 20 Кбайт = 20480 байт, по теории еще даже запас остается. </span>
<span><span><span><span>
Вроде бы такое решение </span></span></span></span>
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
Начало
повтори 4 раза
пока справа стена
повтори шаг вперед
конец цикла
закрась клетку
поверни напрво 90
конец
(0+1)*(1*0)=1*0=0 ответ 2