const n=6; m=n;
var b:array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(90)+10;
write(b[i,j]:4);
end;
writeln;
end;
writeln('Полученный массив:');
for i:=1 to n do
for j:=1 to m do
if i<>j then b[i,j]:=0;
for i:=1 to n do
begin
for j:=1 to m do write(b[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
59 63 74 85 64 87
59 86 48 66 68 44
49 36 90 15 96 34
44 52 81 83 57 53
61 45 93 85 16 40
17 68 11 43 84 96
Полученный массив:
59 0 0 0 0 0
0 86 0 0 0 0
0 0 90 0 0 0
0 0 0 83 0 0
0 0 0 0 16 0
0 0 0 0 0 96
Объём карты памяти 32 Гбайта= 32768 Мбайта
Фильм на карте 1,12 Гбайта= 1146,88 Мбайта
Фото на карте 1,11 Гбайта= 1136,64 Мбайта
Отчёт. xlxs 16,4 Мбайта
Решение:
1) 1146,88 Мбайта + 1136,64 Мбайта + 16,4 Мбайта= 2299,92 М байта (это сколько Мбайт заняли три файла на карте памяти)
2) 2299,92 ÷ 32768 = примерно 0,07, то есть 7/100 части памяти карты заполнена
3) 100/100 - 7/100 = 93/100 (это свободное место на карте)
Ответ: на карте занято 7/100 части, а свободно 93/100 части памяти
Напишите на русском . помогу
Продукты:
Мясо,приправы,масло,куриное яйцо.
Инструменты:
Мясорубка,лопатка,сковорода,кисточки для смазывания сковородки.
Вроде все!
1)FALSE (т.к. X>Y)
2)TRUE (x<y,x не равен y)
3)FALSE(x>y)
4)TRUE(т.к. x=y, x не равен y)