На флешке находится 4 файла по 5 гб. хватит ли оставшегося места на диске, если свободно 1845536 бит?

Question

Информатика: На флешке находится 4 файла по 5 гб. хватит ли оставшегося места на диске, если свободно 1845536 бит?

bodydop · Accepted Answer

нумерация элементов, а соответственно и строк в массиве начинается с 0

программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.

так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100

var

n, k : integer;

a : real;

var d : array[,] of real;

begin

write('введите размер матрицы n=');

readln(n);

d := new real[n,n];

for var i := 0 to n-1 do begin

for var j := 0 to n-1 do d[i,j] := random(101);

end;

write('введите номер строки k=');

readln(k);

a := d[k,k];

for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;

end.