Var m1,m2,m3:array of integer; i,n:integer; begin write('Введите размер массивов'); readln(n); setlength(m1,n); setlength(m2,n); setlength(m3,n); //Заполнение массивов for i:=0 to n-1 do begin m1[i]:=random(21)-10; m2[i]:=random(21)-10; m3[i]:= m1[i]+m2[i]; end; //Вывод массивов for i:=0 to n-1 do write(m1[i]:4); writeln; for i:=0 to n-1 do write(m2[i]:4); writeln; for i:=0 to n-1 do write(m3[i]:4); writeln; end.
2035 байт = 1,987 Кбайт
2560 Кбайт = 2,5 Мбайт
1457664 байт = 1,39 Мбайт
10 463 864 бит = 0,0012 Гбайт
1,2 Гбайт = 1258291,2 Кбайт