Блок-схема - в прилагаемом файле.
Если я правильно поняла задание, то вот
использовать Робот
алг
нач
вправо
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
вправо
вниз
вниз
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
нц 6 раз
вниз
кц
вправо
<span>
кон</span>
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
Ключевое слово "array" написано с ошибкой
program n_1;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i], ' ');
end.
A mod 1000= 75 значит b= 750 значит a=1075+(b div 100)=1075+7.5=1082,5