Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
Полное решение, все задания
Объяснение:
В начале у тебя должен быть принтер. Потом тебе нужно создать Документ Microsoft Office Word И тебе надо сохранить нежный код потом ты вставишь в Документ Microsoft Office Word и печатаешь. И все
For var... меняем на
for var n:=k to 1 do
Ответ:
использовать Робот
алг
нач
вперед
нц пока слева стена и снизу свободно
вниз
кц
влево
вверх
нц пока справа стена и сверху свободно
закрасить
вверх
кц
вправо
нц пока снизу стена и справа свободно
вправо
кц
вниз
нц пока снизу свободно и слева стена
закрасить
вниз
кц
кон
Объяснение: