Сколько файлов, объемом более 4 мб каждый, содержится в подкаталогах каталога demo-12

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

прости что не решила  

uses crt; var n,i: integer; a: array[1..1000] of integer; beginread(n); for i: =1 to n do read(a[i]); for i: =1 to n do beginif a[i]< 0 then a[i]: =abs(a[i]); for i: =1 to n do write(a[i],' '); end.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);