1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество. 
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.

1)Const N = 25;Var m:array [1..N] of integer; i,S,k:integer;beginrandomize;for i:=1 to N dom[i]:= random(50);S:=0; k:=0;for i:=1 to N doif m[i] mod 2 =0 then beginS:=S+m[i]; inc(k); end;writeln('Summa= ',S,' kol-vo = ',k);readln;end.