const n=7;var e,k:array [1..n] of integer;i,a,b,m:integer;beginfor i:= 1 to n dobeginread(e[i]);k[i]:=e[i]*e[i];if e[i] mod 2 <> 0 then a:=a+1end;write ('Массив Е: ');for i:= 1 to n do write(e[i],' ');writeln;m:=k[1];b:=1;for i:= 2 to n doif k[i] < m thenbeginm:=k[i];b:=iend;writeln ('Номер минимального элемента массива К: ',b);writeln ('Количество нечётных элементов массива Е: ',a)end.