До второй половины XIX в. – «ручная» информационная технология, инструментами при котором были перо, чернильница, бумага;
С конца XIX в. – «механическая» технология, инструментарий которой составляли пишущая машинка, телефон, диктофон, почта;
1940—1960-е гг. XX в. – «электрическая» технология, инструментарий которой составляли большие электронно-вычислительные машины (ЭВМ) и соответствующее программное обеспечение, электрические пишущие машинки, ксероксы, портативные диктофоны;
С начала 1970-х гг. – «электронная» технология, основным инструментарием являются большие ЭВМ и создаваемые на их базе автоматизированные системы управления (АСУ) и информационно-поисковые системы (ИПС), которые оснащены широким спектром программных комплексов;
С<span> середины 1980-х гг. – «компьютерная» технология, основной инструментарий – ПК с широким спектром стандартных программных продуктов разного назначения.</span>
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
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
Решение смотри во вложении.
1 А) Автозаполнение порядкового номера(а1 а7)
Автозаполнение формул(Е2 Е7 С7 Е7
1)C1D2
2)C2C6
var n,i,a,s:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
begin
read(a);
if a div 100=4 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример
n = 5
Введите 5 натуральных чисел
123 456 4321 45 401
s = 857