Программа:
Pascal:
var
A: array of integer = (-10, 16, 3, -19, 0, -10, 30);
i, pr: integer;
begin
writeln('Массив: ', A);
write('Отрицательные элементы: ');
for i := 0 to 6 do begin
if A[i] < 0 then
write(A[i], ' ');
if (A[i] > 0) and (A[i] mod 2 = 0) then
pr *= A[i];
end;
writeln(#13, 'Произведение положительных элементов, кратных 2: ', pr);
end.
В начале выделяем память массиву и сразу заполняем его числами. После - регистрируем переменные, которые будем использовать в дальнейшем. Выводим массив, после - выводим просто надпись "отрицательные элементы". После этого циклом проходимся по элементам массива (в ЯП Pascal 1-й элемент массива имеет порядковый номер 0, поэтому цикл от 0 до 6). Если число отрицательное, вывести его; также в этом цикле находим произведение положительных элементов, кратных двум. В конце выводим произведение положительных элементов.
QPython+SL4A:
import android
import time
import sys, select, os #for loop exit
#Initiate android-module
droid = android.Android()
#notify me
droid.makeToast("fetching GPS data")
print("start gps-sensor...")
droid.startLocating()
while True:
#exit loop hook
if sys.stdin in select.select([sys.stdin], [], [], 0)[0]:
line = input()
print("exit endless loop...")
break
#wait for location-event
event = droid.eventWaitFor('location',10000).result
if event['name'] == "location":
try:
#try to get gps location data
timestamp = repr(event['data']['gps']['time'])
longitude = repr(event['data']['gps']['longitude'])
latitude = repr(event['data']['gps']['latitude'])
altitude = repr(event['data']['gps']['altitude'])
speed = repr(event['data']['gps']['speed'])
accuracy = repr(event['data']['gps']['accuracy'])
loctype = "gps"
except KeyError:
#if no gps data, get the network location instead (inaccurate)
timestamp = repr(event['data']['network']['time'])
longitude = repr(event['data']['network']['longitude'])
latitude = repr(event['data']['network']['latitude'])
altitude = repr(event['data']['network']['altitude'])
speed = repr(event['data']['network']['speed'])
accuracy = repr(event['data']['network']['accuracy'])
loctype = "net"
data = loctype + ";" + timestamp + ";" + longitude + ";" + latitude + ";" + altitude + ";" + speed + ";" + accuracy
print(data) #logging
time.sleep(5) #wait for 5 seconds
print("stop gps-sensor...")
droid.stopLocating()
