Var a:array[1..20] of real; var out:real; var i:integer; begin out:=0; for i:=1 to 20 do begin a[i]:=random(); if abs(out)<abs(a[i]) then out := a[i]; end; write(out); end.
Мое мнение: Технология будет улучшатся,а тем временем будут погибать люди.Скоро вместо людей будут роботы,которые будут владет нашей планетой.За год из за технологии погибает 3 миллиона человека,это не так мало как мы думаем,ведь у каждого из них была возможность жить,но всё не так.Наше будущее-в наших руках.
Даны<span> два </span>числа<span>. Если оба кратны </span>четырем<span>, </span>товывести<span> их произведение.</span> <span>Ответ: Если кратны, </span>то<span> значит без остатка делится на </span>4<span>. Первая формула будет деление на </span>4. Дальше уже условие какое-то<span> мутить на проверку полученного результата