Данн одномерный массив из N элементов заполнить его случайными числами от -20 до 25…

Program Task; Const N=10; Var a: Array [1… N] of Integer; i: Integer; BeginRandomize; For i: =1 To N Doa[i]: =Random (25+20+1) — 20; WriteLn ('Результат №1: '); For i: =1 To N DoWrite (a[i], '); WriteLn; For i: =1 To N DoIf a[i] > 0 Thena[i]: =1Else If a[i] < 0 Thena[i]: =0; WriteLn ('Результат №2: '); For i: =1 To N DoWrite (a[i], '); ReadLn; End.