1) Монитор
2) Материнская плата
3) Процессор
4) Незнаю)
5) Незнаю)
6) Память
7) Блок питания
8) Дисковод
9) 2 дисковод (но это не точно)
10) Клавиатура
11) Мышь
Ответ: молоко в кувшине, лимонад в бутылке, квас в банке, вода в стакане.
Var s : String;
Begin
s:='конкурс';
Writeln(s);
Writeln(s[6]+s[5]+s[3]+s[2]);
Writeln(copy(s,4,2)+s[7]+s[2]+s[1]);
end.
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I