Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон
Повторить пять раз
Нарисовать квадрат 2х2 клетки.
Сместиться влево на две клетки и вниз на одну.
Закончить рисование
Целые положительные представляются в компьютере в формате с фиксированной запятой.
Отрицательные с помощью дополнительного кода.
Uses SysUtils,Windows;
var a:array of Integer; i,n,s,o:Integer;
begin
o:=0;
s:=0;
SetConsoleOutputCP(1251);
Randomize;
write('Введите "N": ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
begin
a[i]:=Random(10)-5;
write(a[i]:3);
end;
Writeln;
Writeln;
for i:=0 to Length(a) do
begin
if a[i] mod 2=1 then
Inc(s);
if a[i]<0 then
Inc(o);
a[i]:=a[i]*(-1);
end;
Writeln('Кол-во отрицательных элементов: ',o);
Writeln('Кол-во нечетных элементов: ',s);
Writeln;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>
Решение: 6*2=12
<span> 2*1=2
У меня получилось так. Я хз</span>