Var a,b,c: array [1..20] of integer; n,k,l,i: integer; begin writeln('|||входные данные |||'); write('введите количество элементов: '); readln(n); writeln('массив а: '); for i: =1 to n do; read(a[i]); k: =1; l: =1; for i: =1 to n do if i mod 2=0 then begin k: =k+1; b[k]: =a[i]; end else l: =l+1; c[l]: =a[i]; writeln('массив b с четными элементами: ',b[k]); read(b[k]); writeln('массив c с нечетными элементами: ',c[l]); read(c[l]); writeln; writeln; end. не могу найти ошибку исправьте !

аля722    2   22.06.2019 22:40    0