Выполните действие:    А) 11000112    -  101112;    Б) 1000012 + 1111002;

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;  

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.