<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
var y:=x<0 ? (3*x*x+4)/6 : Sqrt(3*x-2);
Writeln('y=',y)
end.
<u>Примеры</u>
x= 12.4
y=5.93295878967653
x= -5.01
y=13.2167166666667
Устройства ввода информации обеспечивают ввод информации
Для ввода и вывода информации.
Клавиатура-устройство ввода,
Монитор-устройство вывода.
Визуализация вывод информации на
Принтер
Можно уточнение?
-Восимичеую? ЛИбо я что то перепутал, или у тебя опечатка...
<u /><em></em><em>VAR</em>
<em> n, m, sum, i, j: Integer;</em>
<em> a: Array [1..10000] of Array [1..10000] of Integer;</em>
<em>BEGIN</em>
<em> Read(n, m);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do Read(a[i][j]);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do</em>
<em> If (a[i][j] > 0) then sum := sum + a[i][j];</em>
<em></em>
<em> Write(sum);</em>
<em>END. </em>
<em></em>
<u>Но для экономии времени и сил можно не создавать массив:</u>
<em>VAR</em>
<span><em> n, m, sum, el, i, j: Integer;</em></span>
<em>BEGIN</em>
<span><em> Read(n, m);</em></span>
<em></em>
<span><em> For i := 1 to n do</em></span>
<span><em> For j := 1 to m do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (el > 0) then sum := sum + el;</em></span>
<span><em> End;</em></span>
<em></em>
<span><em> Write(sum);</em></span>
<em>END.</em>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger;
var a:=ReadArrReal(n);
var si:=a.IndexesOf(t->t=0);
if si.Count<2 then Writeln(0)
else Writeln(a[si.First+1:si.Last].Sum:0:3)
end.
<u>Примеры</u>
8
-4.6 3.9 0 2.4 1.7 0 0 2.1
4.100
5
0 0.244 -3.253 0 2.34
-3.009
