//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
120n (руб) - стоимость всего мороженого
3800к (руб) - стоимость всего шоколада
120n + 3200k (руб) - потратил мальчик на всю покупку
1пн-5уроков.
2- 6уроков
3-7уроков
4-6уроков
5-5уроков
Var
x,y:real;
begin
Write('x='); Read(x);
if x>0 then y:=x-2
else
if x=0 then y:=5*x+10
else begin
Writeln('неверное значение x');
exit
end;
Writeln('y=',y)
end.
<span> "бот" =8,"вол"=9 "болт"=11,"лото"=12</span>