ответить на эти вопросы?
тема: образование ​

В обоих случаях вы не указали какие числа, я использовал промежуток от -64000 до 64000
1)var a,b:array[1..101] of longint;i,n,k:integer;beginfor i:=1 to 100 do a[i]:=random(128000)-64000;for i:=1 to 100 do beginif a[i]>0 then begin b[i]:=a[i];inc(k);end;if a[i]<0 then begin while a[i]>0 doa[i]:=a[i+1];end;end;for i:=1 to k doif b[i]<>0 thenwriteln(b[i]);end.
2)var a:array[1..50] of integer;i,k:integer;beginfor i:=1 to 50 do a[i]:=random(64000)+1;//for i:=1 to 50 do if a[i] mod 3 =0 then writeln(a[i]); если хотите посмотреть на эти числа убрать //for i:=1 to 50 do if a[i] mod 3 =0 then k:=k+a[i];write(k);end.

def process_input(number):

numlist = list(number)

first_part = int(numlist[0])+int(numlist[1])

center_part = int(numlist[1])+int(numlist[2])

last_part = int(numlist[2])+int(numlist[3])

return first_part*center_part*last_part

def main():

input_number = input()

assert len(input_number) == 4

result = process_input(input_number)

print(result)

if __name__ == '__main__':

main()

Объяснение:

P.S Для восстановления нормального состояния программы предоставлен её скриншот. Сайт напрочь ломает Python-код.