Сколько бит составляет сообщение содержащее 5 килобайт

5*1024*8=

Uses crt; var x: array[1..10]of real; i: integer; min,max: real; begin clrscr; min: =9999999; max: =-9999999; for i: =1 to 10 do begin x[i]: =exp(i*(-1))*(sqr(i)-3*i); if x[i]< min then min: =x[i]; if x[i]> max then max: =x[i]; writeln(x[i]: 1: 5); end; writeln('измененный массив с максимальным=',max: 1: 5,' и минимальным=',min: 1: 5); for i: =1 to 10 do begin if x[i]=min then writeln(max: 1: 5); if x[i]=max then writeln(min: 1: 5); if (x[i]< > min)and(x[i]< > max)then writeln(x[i]: 1: 5); end; end.

Const nx = 20; mx = 20;   var a: array[1..nx,1..nx] of real; i,j,n,m: integer; sum: real;   begin  write('введите размер матрицы');   read(n);   for i: =1 to n do begin  for j: =1 to n do begin  a[i,j]: = random()*100 -50;   write(a[i,j]: 9: 4);   end;   writeln;   end;   writeln; writeln;   for i: =1 to n do begin  for j: =1 to n do beginif i < j then begin  write(a[i,j]: 9: 4); sum: =sum + a[i,j];   end  else  write(' ': 9);   end;   writeln;   end;   write('сумма = ',sum);   end.