//Элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение.
var B: array[1..100, 1..100] of integer;
i, j, n: integer; P: longint;
begin
write('Введите размерность: ');
readln(n);
p := 1;
for i := 1 to n do begin
for j := 1 to n do begin
B[i, j] := Random(100);
write(B[i, j]:3);
if i = j then p := p * B[i, j];
end;
writeln;
end;
writeln('Произведение главной диагонали матрицы: ', p);
end.
10 цветов, я так думаю...
1. Узбеки - плов (нац блюдо)
Украинцы - борщ (нац блюдо)
2. Курица - лиса
Заяц - волк
3. Колпак. Известный ребус"
Ip <span>93.120.218.52
максимальное кол-во компьютеров в сети 155</span>
Ответ: В 1гб - 1024мб, значит в 320гб - 320гб*1024мб=327680-мб