// 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) это сведения о чём то
2)обоняние , осязание, зрение , слух.
3) Блок питания
— Центральный процессор
— Внешняя видеокарта (ее разъем PCI, AGP, PCI-Express)
— Оперативная память
— Оптический DVD привод
— Трехдюймовый дисковод гибких дисков (FDD 3,5)
— Жесткий диск (винчестер)
— Материнская плата (фиолетовая)
4) Основными устройствами вывода являются монитор, принтер, плоттер акустические колонки, наушники.
5) Backspace
6) PageDown
7) это то что содержит и хранит информацию
8) клавиатура
9) Сканер
10) клавиатуре, Диска, принтере или на бумагу
Объяснение: