Ответить на вопросы . 10 на диске d: ученику необходимо выполнить следующую последовательность действий: 1) создать каталог ода; 2) открыть каталог ода; 3) создать каталог 1; 4) открыть каталог 1; 5) создать каталог 11; 6) подняться на один уровень вверх; 7) создать каталог 2; 8) подняться на один уровень вверх; 9) создать каталог дон изобразите файловую структуру, которая будет сформирована на диске d: после совершения этих действий. 11 запишите пять разных имён файлов, удовлетворяющих маске *x? ? r. t? *

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.

* 60 / 16 =