1.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
if a[i]>0 then s:=a[i]+s;
end;
writeln(s);
end.
2.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10);
if a[i] mod 2 = 0 then s:=s+a[i];
end;
write(s);
end.
3.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
if (i mod 2 = 0) and (a[i] mod 2 = 0) then s:=s+a[i];
end;
writeln(s);
end.
A:= 30;
<span>a:=30;
b:= 6;
a:=30*3/6 после этого a примет значение a:=15, подставляем в условие
if 15>6 </span><span>then (если условие выполняется), а оно выполняется, то решаем первое уравнение
c:= 2*15-5* (6+2) получаем
c:=-10
если писать на паскале, то будет так
var a,b,c:real;
begina:= 30;b:= 6;
a:= a * 3 / b;if a > b then
c:= 2*a - 5*(b+2)else
c:= 2*a + 5*(b+2);
writeln (c);
<span>end.</span></span>
Const pi=3.141593;
<span>var R,R1,H,V: real;
</span><span>begin
</span><span> write('радиус нижнего основания R: '); readln(R);
</span><span> write('радиус верхнего основания R1: '); readln(R1);
</span><span> write('высота конуса H: '); readln(H);
</span><span> V:=H*pi*(R*R+R*R1+R1*R1)/3;
</span><span> writeln('объем конуса V = ',V:7:3);
</span><span>end.
</span>радиус нижнего основания R: 10
<span>радиус верхнего основания R1: 15
</span><span>высота конуса H: 8
</span><span>объем конуса V = 3979.351
</span>
Ответ:
Попробуй потыкать все кнопки, и выясни.
Объяснение:
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
