Кумир. Исполнитель черепаха.

использовать Черепаха
алг
нач
опустить хвост
нц 7 раз
вперед (10)
вправо (120)
кц
кон

использовать Робот алг нач нц пока слева свободно влево кц нц пока слева не свободно закрасить вниз кц нц пока слева свободно вниз кц нц пока слева не свободно закрасить вниз кц влево вверх нц пока справа не свободно закрасить вверх кц нц пока справа свободно вверх кц нц пока справа не свободно закрасить вверх кц кон

Информатика 9 класс

program n_5;
const n=10;
var
i, k , x: integer; a: array [1..10] of integer; 
begin
randomize;
for i := 1 to 10 do begin
a[i]:= random(100); 
writeln ('a[', i, ']=', a[i])
end;
writeln ('x='); 
readln (x); 
k:=0;
for i:= 1 to n do
if a[i] = x then k:= i; 
if k = 0
then writeln ('Элемента со значением, равным заданному, в массиве нет')
else writeln ('Индекс элемента, равного заданному, ', k)
end.