// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
procedure pSumPos(m:array of integer; var r:integer); begin r:=m.Where(t->t>0).Sum end;
function fSumPos(m:array of integer):=m.Where(t->t>0).Sum;
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println; Write('Сумма положительных элементов А: '); var s:integer; pSumPos(a,s); Writeln(s); Writeln('Сумма положительных элементов B: ',fSumPos(b)); end.
DIM m AS INTEGER, n AS INTEGER CLS INPUT "M,N = ", m, n REDIM a(1 TO m, 1 TO n) AS INTEGER RANDOMIZE TIMER FOR i = 1 TO m FOR j = 1 TO n a(i, j) = 100 * RND - 50 PRINT USING ""; a(i, j); NEXT j PRINT NEXT i min = 1000: max = -1000 FOR i = 1 TO m FOR j = 1 TO n IF a(i, j) > max THEN max = a(i, j) jmax = j END IF IF a(i, j) < min THEN min = a(i, j) jmin = j END IF NEXT j NEXT i DIM p AS DOUBLE p = 1 FOR i = 1 TO m p = p * a(i, jmax) * a(i, jmin) NEXT i PRINT "P="; p
x = int(input("x: "))
y = int(input("y: "))
k = x**2+4*x*y*(x/y+y**2)
print(k)