Объяснение:
const
n = 10;
ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);
var
i:integer;
is_first_pol:boolean;
raz_pol:integer;
begin
raz_pol:=0;
is_first_pol:=true; // флаг того, что найденное положительное число - первое
for i:=1 to n do begin
if (ar[i] > 0) then
if (is_first_pol) then begin
// если найденное полодительное число - первое, то
raz_pol:=ar[i]; // в нашу разницу заносим это число
is_first_pol:=false; // меняем флаг
end
else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу
end;
writeln(raz_pol);
end.
на предыдущих уроках мы установили среду кумир, настроили ее для дальнейшей работы и научились задавать стартовую обстановку робота. теперь перейдем непосредственно к составлению алгоритмов для робота с использованием простых команд.
если вам больше нравится информация в формате видеоуроков, то на сайте есть видеоурок робот. простые команды.
у любого исполнителя должна быть система команд (ски — система команд исполнителя). система команд исполнителя — совокупность всех команд, которые может выполнить исполнитель. в качестве примера рассмотрим дрессированную собаку. она умеет выполнять некоторые команды — «сидеть», «лежать», «рядом» и т. п. это и есть ее система команд.
простые команды робота
у нашего робота тоже есть система команд. сегодня мы рассмотрим простые команды робота. всего их 5:
вверх
вниз
влево
вправо
закрасить
результат выполнения этих команд понятен из их названия:
вверх — переместить робота на одну клетку вверх
вниз — переместить робота на одну клетку вниз
влево — переместить робота на одну клетку влево
вправо — переместить робота на одну клетку вправо
закрасить — закрасить текущую клетку (клетку в которой находится робот).
эти команды можно писать с клавиатуры, а можно использовать горячие клавиши (нажав их команды будут вставляться автоматически):
вверх — escape, up (стрелка вверх)
вниз — escape, down (стрелка вниз)
влево — escape, left (стрелка влево)
вправо — escape, right (стрелка вправо)
закрасить — escape, space (пробел)
незнаю правильно или нет,если нет то сорян.
