// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var n:=ReadInteger('Количество элементов в массиве: '); var a:=ArrRandom(n,-50,50); a.Println(','); Writeln('Четные элементы: '); var i:=1; while i<n do begin Write(a[i],' '); Inc(i,2) end; Writeln; Writeln('Нечетные элементы: '); i:=0; while i<n-1 do begin Write(a[i],' '); Inc(i,2) end; Writeln end.
Тестовое решение: Количество элементов в массиве: 10 15,-18,-29,-25,46,21,-8,-17,-9,15 Четные элементы: -18 -25 21 -17 15 Нечетные элементы: 15 -29 46 -8 -9
Логические знаки не дает вставлять - пишу их союзами и частицами подчеркнутыми. 1) Число 376 четное и трехзначное. А = "Число 376 четное" В = "Число 376 трехзначное" А и В 2) Неверно, что Солнце движется вокруг Земли. А = "Солнце движется вокруг Земли" Не А 3) Земля имеет форму шара. А = "Земля имеет форму шара" А 4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу. А = "На уроке математики старшеклассники отвечали на вопросы учителя" В = "На уроке математики старшеклассники писали самостоятельную работу" А и В 5) Если сумма цифр числа делится на 3, то число делится на 3. А = "Сумма цифр числа делится на 3" В = "Число делится на 3" А стрелка к В 6) Число делится на 3 тогда и только тогда, когда сумма цифр числа делится на 3 А = "Число делится на 3 " В = "Сумма цифр числа делится на 3" А стрелка в обе стороны В
в облако сохранить. или куда-либо ещё.
Объяснение:
других путей нет