Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
(ln(128)/ln(2)) бит на пикс * 15 точек ширина * 15 точек высота = 1575 бит инф. объём (вес фотки).
Не(х<10) или не(х четное) равнозначно х>=10 или x нечетное
=>
x - нечетное число или >=10
т.о. число, не подходящее ни под одно из этих условий - 8
ответ: 4) 8
14×4+14×2+3×2+2×4+14×2+2×2=14×8+2×9=112+18=130метров проволки нужно
1. 123
2. 1453
3. 420
можно не благодарить