const
m = 2;
n = 3;
var
A, B, C: array [0..m - 1,0..n - 1] of real;
Ct: array [0..n - 1, 0..m - 1] of real;
i, j: Integer;
begin
// заполнение матрицы С среднеарифметическими значениями А и В
for i := 0 to m - 1 do
for j := 0 to n - 1 do
C [i, j] := (A [i, j] + B [i, j]) / 2;
// транспонирование С в Ct
for i := 0 to m - 1 do
for j := 0 to n - 1 do
Ct [j, i] := C [i, j];
end;
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.
1.1.
<em>var k,s:integer;</em>
<em>begin</em>
<em>s:=0;</em>
<em>k:=1;</em>
<em>repeat
</em>
<em>s:=s+k;</em>
<em>k:=K+1;</em>
<em>until k >10;
</em>
<em>write(s);</em>
<em>end.</em>
<em>2. в первом цикле
</em>
for n:=1 to 100 do
A[n]:=n-10;
<em>вычисляются элементы массива А по формуле</em> A[n]:=n-10<em>, первые 10 из них будут отрицательные.
</em>
во втором цикле
for n:=1 to 100 do
B[n]:=A[n]*n;
<em>вычисляются элементы массива В по формуле </em>B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.
<em>
</em>
Блок-схема расчета площади квадрата
в приложении.