Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>
В состав этого пакета входят:
– текстовый редактор Microsoft Word,
– электронные таблицы Microsoft Excel,
– система управления базами данных Microsoft Access,
– программа подготовки компьютерных презентаций Power Point,
– программа – планировщик рабочего времени (блокнот) Outlook,
Честно говоря пути короче чем A-C-D я не вижу.
Собственно получается, что Ответ: 6
4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.