2*(а**2-b**2)
(a+b)*(c+d)
(2*a+b)/(c-2*d)
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(20, -50, 50);
a.Println;
var b := a.Sum;
Println('Сумма элементов равна', b)
end.
A:=40
B:=6
A:=40*3:6=20
If a>b then (если а больше б то) (20>6 это верно)
C:=20+5*6=50
Else (иначе)
C:=a-5*b
Ответ: с:=50
5 6)
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=i to n
if a(i)>a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону
t=a(i)
a(i)=a(j)
a(j)=t
end if
next j
next i
for i=1 to n
print a(i);
next i
----------------------------
Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
input n
dim a(n)
s=0
p=1
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then p=p*a(i)
if a(i)<0 then s=s+a(i)*a(i)
if a(i)=0 then a(i)=12
next i
for i=1 to n
print a(i);
next i
print
print s
print p
----------------------------
Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
n=31
dim a(n)
s=0
for i=1 to n
input a(i)
next i
for i=1 to n
if i mod 2 =0 then s=s+a(i)
next i
print
print s
-------------------------
Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.
input n
input b
dim a(n)
s=0
p=1
k=0
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then k=k+1
if i mod 2 = 1 then s=s+a(i)
if a mod b = 0 then p=p*a[i]
next i
for i=1 to n
print a(i);
next i
print
print s
print p
print b
