<span>srednee:=(a+b)/2; наверное.
</span>
Например, если допустим они написали статью и к ней прилагается фото.То они пишут фото здесь, чтобы вы перешли по ссылке, или продолжение здесь
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.
1)В случаях когда надо показать отношения чего-то к чему-то
2)Они могут быть построены когда надо сравнить несколько данных и показать это наглядно
Program Node;
var a,b,NOD:integer;
begin
writeln('введите два целых числа a и b:');
readln(a,b);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
NOD:=a; writeln('NOD=',NOD);
end.