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

Question

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

Answer 1

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