<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
<h2>5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4</h2><h2>S = 110</h2>
Ответ:
1)11211111 или 1)1112111
2)332
Объяснение:
1)(1+3+3)*2+3+3+3+3+3=29 или 1)(1+3+3+3)×2+3+3+3
2)1+4+4+2=11
const
n = 5; m = 5;
var
a: <em>array [0..m, 0..n] of shortint</em>;
i, b, c: <em>integer</em>;
begin
for i := 1 to m do
begin
for b := 1 to n do
begin
a[i, b] := random(-90, 0);
write(a[i, b]:4);
if (i = m) then
if (a[i, b] mod 4 = 0) then
c += 1;
end;
writeln(<em>(i = m) and (b = n)</em> ? ' ' + c : '');
end;
writeln();
<span>end.</span>
DIM x AS DOUBLE, y AS DOUBLE
CLS
INPUT x, y
IF x < y THEN
x = (x + y) / 2
y = 2 * x * y
ELSE
y = (x + y) / 2
x = 2 * x * y
END IF
PRINT "x="; x; ", y="; y
Результат
? 5.68,3.9
x= 54.4144 , y= 4.79
Если фигура круг то это начало-конец
Если фигура паралелограмм то это ввод -вывод
Если это четырёхуголник то это действие(тоесть вычисления)