Begin
for var i:=0 to 10 do writeln('Корень из ',i,' = ', sqrt(i));
end.
больше ничего не требуется, всего 3 строчки.
<span>int [ , ] array = new int [2,3];
</span>Random rnd=new Random();
For (int i=0; i<array.lenght; i++)
{
For (int j=0; i<array.lenght; j++)
{
a[i,j]=rnd.Next(-25,25);
if (array[i,j]<0) Console.WriteLine("Есть");
}
}
Только пробел между const и a надо поставить
<span>const a:array[1..3]of integer=(12,7,58);
тогда правильно </span>
Сумма элементов, равных нулю, в любом массиве будет равна нулю. Сколько нулей ни складывай - в результате будет ноль. И для этого не надо писать никаких программ - достаточно арифметики из начальной школы.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=MatrRandom(5,5,-9,9);
a.Println(3); Writeln(15*'-');
Writeln('Сумма нулей: ',a.ElementsByRow.Where(t->t=0).Sum)
end.
м<span>В трех автобусах ехали 180 пассажиров. Из них – в первом автобусе, во втором автобусе – в 1,2 раза больше пассажиров, чем в первом. Сколько пассажиров в каждом из трех автобусов?</span>