Дан массив целых чисел. нумерация элементов начинается с 0. выведите все элементы массива с четными номерами. формат входных данныхсначала задано число n - количество элементов в массиве, n100. далее через пробел записаны n чисел - элементы массива. все числа по модулю не превосходят 10000 формат выходных данныхвыведите все элементы массива с четными индексами (то есть a[0], a[2], a[4],

Вот массив который сам заполняется uses crt; const n=100; var i,a: integer; mas1: array [0..n] of integer; begin for i: =0 to n do begin a: =random(10000); mas1[i]: =a; end; for i: =0 to n do begin if i mod 2=0 then write('a[',i,']=',mas1[i],' '); end; end.вот заполняемый вручную(чтобы записывать через пробел сам uses crt; constn=100; vari,a: integer; mas1: array [0..n] of integer; label 1; beginfor i: =0 to n dobegin1: read(a); if a< =10000 thenmas1[i]: =aelsebeginwriteln('a bolwe 10000'); goto 1end; end; for i: =0 to n dobeginif i mod 2=0 thenwrite('a[',i,']=',mas1[i],' '); end; end.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a