Помогите пожалуйста Паскаль
1. Дан массив из N элементов. Вывести квадраты элементов с нечетными номерами.
2. Дан массив из N элементов. Определить количество элементов, которые являются нечетными числами.

спасибо, исправил

ABC

2 порогу подробно пожалуйста

1)var a:array[1..100] of integer; i,n:integer;beginreadln(n);for i:=1 to n doa[I]:=random(10000);for i:=1 to n doif i mod 2 <> 0 then write(a[I]*a[I],' ');end.2)var a:array[1..100] of integer; i,k,n:integer;beginreadln(n);for i:=1 to n doa[I]:=random(10000);for i:=1 to n doif a[I] mod 2 <> 0 then k:=k+1;write(k);end.