Заполнить массив из 10 элементов случайными числами в интервале [-10..10]. заполните массив b[10], полученный из массива а путем умножения отрицательных его элементов на 2, а положительных на 3. выведите массив a и b

program yoelzelten; const n=10; var  ma: array[1..n] of real;   mb: array[1..n] of real;   i: integer; begin  randomize;   writeln('*************************************');   writeln('***    массив а    **      массив в    ***');   for i: =1 to 10 do      begin          ma[i]: =random(21)-10;           if ma[i]< 0 then mb[i] : = ma[i] * 2              else mb[i] : = ma[i] * 3;           writeln('***',ma[i]: 8: 0,'          **    ',mb[i]: 8: 0,'      ***');       end;   writeln('*************************************'); end.

uses crt; var i: integer; a: array[1..10] of integer; b: array[1..10] of integer; beginrandomize; for i: =1 to 10 do a[i]: =random(21)-10; for i: =1 to 10 do write(a[i],' '); for i: =1 to 10 dobeginif a[i]< 0 then b[i]: =2*a[i]else b[i]: =3*a[i]; end; writeln; for i: =1 to 10 do write(b[i],' '); readln; end.

80 * 60 = 4800 символов на 1 странице

4800 * 450 = 2160000 символов в книге

обычно 1 символ кодируется 1 байтом информации, значит

в книге 2160000 байт, переведем их в мегабайты

2160000 : 1024 = 2109,375 кб (килобайт)

2109,375 : 1024 = 2,06 мб (мегабайт)

следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.

рождения 30.05.95

300