Всем привет. Всем здравствуйте. Разберите задание по операционную систему и средам ну что-то у меня не получается вообще

177

446

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

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

annagutsman

Информатика

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

Вопрос 3-a

Вопрос 4-a

Вопрос 5-b

Вопрос 6-a

Вопрос 7-с

Вопрос 8-a

Объяснение:

reginailt

Информатика

4,5(22 оценок)

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! procedure printarr(f: text; a: array of integer); begin foreach var x in a do write(f,x,' '); writeln(f) end; begin var fin: =openread('input.txt'); var n: =readlninteger(fin); var a: =new integer[n]; for var i: =0 to n-1 do read(fin,a[i]); var fout: =openwrite('output.txt'); fin.close; printarr(fout,a); var b: =a.where(x-> x.iseven).toarray; printarr(fout,b); var c: =a.where(x-> x.isodd).toarray; printarr(fout,c); fout.close end.