Как это в чем? Компьютер это машина, а человек - живое существо, у человека есть мозг , а у компьютера есть только то, что задает ему человек. Человек питается, живет, дышит, спит, размножается
Program NekitZor;
const
n=16;//1-Именованная переменная количество елементов
var
a:array[1..n] of integer;
k:integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(20);//2-Массив чисел, задал рандомно не больше 20
for i:=1 to n do write(a[i],' ');//3-Вывел массив в строку
for i:=1 to n do
if a[i]<11 then k:=k+1;//4-Подсчитал количество елементов меньше 11<span>
</span>writeln();
writeln();
writeln('Количество елементов меньше 11 = ',k);
end.
если мы предположим, что Дима был прав, когда сказал, что это медь, тогда Боря и Костя в первой части высазывания ошиблись. И по условию задачи должны были оказаться правы в весе. Но одновременно не может весить 50 и 100 кг.
тогда наша предпосылка не верна. Значит это не медь, а железо. Тогда Боря и Костя оказались правы в этом, а Дима прав в весе.
Ответ: Это железо и весит 30 кг.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
var a := MatrGen(m, n, (i, j)-> j.IsOdd ? 1 : 0);
a.Println(2)
end.