Эта программа подсчитывает сумму первой половины элементов массива. Т.е. сумма считается для тех элементов, индекс которых (i) меньше n-i.
В данном случае n=10, => максимальное i для которого будет выполнен подсчет = 5 (5<=10-5)
Т.к. индексация начинается с нуля, - берем сумму 6-ти первых чисел:
0+1+2+3+4+5=15
Ответ: 3) 15
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Держи)помоги пожалуйста мне))
function Hypo(a, b: real) := Sqrt(a * a + b * b);
begin
var (a, b) := ReadInteger2();
Print('Периметр треугольника =', Hypo(a, b) + a + b)
end.