Паскаль заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа. пример: массив а: -5 6 7 -4 -6 8 -8 массив b: -4 -6 -8

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.

сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. переплыв реку он даёт лодку матери. она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.