Дан массив целых чисел. нумерация элементов начинается с 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.

1) не ясен вопрос 2) 0 2 6 12 20 30 42 56 72 90 3) 5 4) for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; код полностью   var       a: array[1..10] of integer;       i, k: integer; begin       for i : = 1 to 10 do       begin               a[i] : = sqr(i) - i;               write(a[i], ' ');       end;       writeln;             k : = 0;       for i : = 1 to 10 do               if (a[i] > 10) and (a[i] < 70) then                       k : = k + 1;       write(k);       writeln;             for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; end.

1. программа, файл var   f: file of integer;   i,k: integer; begin   randomize;   assign(f,'in.dat'); rewrite(f);   for i: =1 to 20 do begin       k: =random(99)+1;       write(f,k)       end;   close(f) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 2. основная программа uses crt; const   nn=100; var   i,j,k,n: integer;   fin,fout: file of integer;   a: array[1..nn] of integer;   dub: boolean; begin   clrscr;   assign(fin,'in.dat'); reset(fin);   read(fin,k);   if not eof(fin) then begin       n: =1; write(k,' '); a[n]: =k       end   else n: =0;   while (not eof(fin)) and (n< =nn) do begin       read(fin,k); write(k,' ');       j: =1; dub: =false;       while (j< =n) and (not dub) do begin           dub: =(a[j]=k); inc(j);           end;       if not dub then begin inc(n); a[n]: =k; inc(j) end       end;   writeln;   close(fin);   for i: =1 to n do write(a[i],' ');   writeln; writeln('n=',n);   assign(fout,'out.dat'); rewrite(fout);   write(fout,n); close(fout);   readkey end. тестовое решение: 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 в качестве бонуса - решение этой же в современной системе программирования pascalabc.net. // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var fin,fout: file of integer;   reset(fin,'in.dat');   var k: integer;   var a: =new integer[fin.filesize];   var n: =0;   while not eof(fin) do begin       read(fin,k); a[n]: =k; inc(n)       end;   close(fin);   a.println;   var b: =a.tohashset;   b.println; writeln('n=',b.count) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 и вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? чтобы показать, "как все это сложно"?