//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, -10, 10);
var b := ArrFill(n, 0);
println(a);
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
if a[i, j] = 0 then b[i] += 1;
b.Println;
end.
program ex4
real::x,y
read *,x,y
if (y<exp(1.) .and. y>exp(-1.) .and. y>x*x) then
print *,"Vnutri"
else if (y<=exp(1.) .and. y>=exp(-1.) .and. y .eq. x*x &
.or. y .eq. exp(1.) .and. y .eq. x*x &
.or. y .eq. exp(-1.) .and. y .eq. x*x) then
print *,"Na granitce"
else
print *,"Vne"
end if
end
Из тележки товар с ценником 50 попадет на верхнюю полку, остальные на нижнюю т. к. условие 200>цены товара подходит только для ценника 50.
Const n=5; //размер массива
var a:array[1..n] of integer; i,xmax:intger;
begin
for i:=1 to n do begin
a[i]:=random(10); //заполняем массив случайными числами от 1 до 10
write(a[i]); // выводим массив
end;
xmax:=a[1];
for i:=1 to n do begin
if a[i]>xmax then xmax:=a[i]
end;
for i:=1 to n do
a[i]:=xmax;
writeln('Конечный массив:');
for i:=1 to n do
write(a[i]);
end.