array = [3, 6, -2, 7, -5, -6, 8, 16, 64, 23, -45, 24, 15, 3, 5]
sum1 = 0
dob = 1
index1 = 0
index2 = 0
index3 = 0
sum2 = 0
for i in range(len(array)):
if array[i] < 13:
sum1 = sum1 + array[i]
if array[i] > 0:
dob = dob * array[i]
index1 = index1 + 1
sum2 = sum2 + (array[i] * array[i])
if array[i] < 0:
index2 = index2 + 1
if array[i] % 2 != 0:
index3 = index3 + 1
print("Сума елементів масиву, які менші за 13: " + str(sum1))
print("Добуток додатніх елементів масиву: " + str(dob))
print("Кількість додатніх елементів масиву: " + str(index1))
print("Кількість від\'ємних елементів масиву: " + str(index2))
print("Кількість непарних елементів масиву: " + str(index3))
print("Квадрат суми непарних елементів масиву: " + str(sum2))
Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. На практике поле всегда ограниченного размера, а стенки стоят в заданных местах в зависимости от задачи. Задача состоит в закрашивании определенных клеток и остановке робота в заданном месте.
У Робота есть пять команд-приказов:
вверх
вниз
влево
вправо
закрасить
При выполнении одной из первых четырех команд Робот перемещается на одну клетку соответственно: вверх ↑, вниз ↓, влево ←, вправо →. Если Робот получит команду передвижения через стену, то он разрушится (произойдет отказ). По команде закрасить закрашивается клетка, в которой Робот находится в настоящий момент (если клетка уже закрашена, отказа не происходит).
begin
write('a='); readln(a);
s:=0;i:=1;
while a<>0 do
begin
if i mod 2 =0 then s:=s+a;
i:=i+1;
write('a='); readln(a);
end;
writeln('s=',s);
end.