Дан массив с(10). сформируйте из него массивы а(5) и в(5), предварительно определив их длину. в массив а включите элементы из массива с с четными индексами, а в в— с нечетными. выведите на экран массивы а(5), в(5) и с( 10).

157

161

Посмотреть ответы 2

Ответы на вопрос:

Maxiro

Информатика

4,8(19 оценок)

Const n=10; m=5; var i,j,k: integer; a: array[1..n] of integer; b,c: array[1..m] of integer; begin writeln('введите элкменты массива'); for i: =1 to n do readln(a[i]); j: =0; k: =0; for i: =1 to n do if i mod 2=1 then begin j: =j+1; b[j]: =a[i] end else begin k: =k+1; c[k]: =a[i] end; writeln('массив а'); for i: =1 to n do write(a[i],' '); writeln; writeln('массив b'); for i: =1 to j do write(b[i],' '); writeln; writeln('массив c'); for i: =1 to k do write(c[i],' '); writeln end.