//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
TakeInput.py:
В 1 строчку:
[pass if input() == "" else print("OK")] # ничего если пробел иначе OK
На понятном языке:
string = input() # просим пользователя ввести что-то
if string == "": # если он нажал пробел (ничего не ввел)
pass # ничего не делаем
else: # иначе
print("OK") # ввыводим OK
PosNeg.py:
В 1 строчку:
[print(1) if int(input()) > 0 else print(-1)] # исправил на > 1 извини опечатка в скрине
На понятном языке:
num = int(input()) # пользователь вводит число и мы его преобразуем в целочисленное
if num > 0: # если число больше 0 то
print(1) # выводим 1
else: # иначе
print(-1) # выводим -1