1. Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все положительные  элементы и вычислить  их сумму
2. Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 20 элементов, заполнен случайными числами.)
3. Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество чисел, меньших 25

1var  a:array[1..10]of integer;  s,i:integer;beginfor i:=1 to 10 do readln(a[i]);for i:=1 to 10 do    if a[i]>0 then       begin       s:=s+a[i];       write(a[i],' ');       end;writeln;writeln('Сумма: ',s);end.2var  a:array[1..20]of integer;  s,i:integer;beginwriteln('Исходный массив:');for i:=1 to 20 do  begin  a[i]:=random(20);  write(a[i],' ');  end;writeln;write('Искомые элементы: ');for i:=1 to 20 do    if i mod 2=1 then       begin       s:=s+a[i];       write(a[i],' ');       end;writeln;writeln('Их сумма: ',s);end.3var  a:array[1..20]of integer;  s,i:integer;beginwriteln('Исходный массив:');for i:=1 to 20 do  begin  a[i]:=random(-50,50);  write(a[i],' ');  end;writeln;write('Меньше 25: ');for i:=1 to 20 do    if a[i]<25 then       begin       s:=s+1;       write(a[i],' ');       end;writeln;writeln('Их количество: ',s);end.