1. дан массив а=(2, -9, -3, 1, 4, -3, 6, -7, -4, 9)
а) описать массив в разделе var
b) чему равно значение а[5]=?
c) чему равно значение: а[2] + а[10] * a[5]=?
d) что получится после выполнения фрагмента программы:
for i: =1 to 10 do
if a[i]=6 then write(‘i=’,i);

#include <iostream>

#include <vector>

using namespace std;

int am_dig(int k){

   int res = 0;

   while(k > 0){

       res++;

       k /= 10;

   }

   return res;

}

double average(vector<double> a){

   double sum = 0;

   for(auto i: a)

       sum += i;

   return sum/a.size();

}

int main() {

   vector<double> a;

   double x = 1;

   while(x != 0){

       cin >> x;

       if(am_dig(x) == 3)

           a.push_back(x);

   }

   if(a.size() == 0)

       cout << "NO";

   else

       cout << average(a);

}

program AndryshaHomenko;

type mas = array of array of integer;

var a: mas;

   n, i, j, summa, k: integer;

begin

write('Дан двумерный массив a, размером (n´n)(или квадратная матрица а).');

writeln('Найти среднее арифметическое положительных элементов еѐ побочной диагонали.');

writeln;

writeln('Введите размерность массива: ');

readln(n);

setlength(a, n, n);

summa := 0;

k := 0;

randomize;

for i := 0 to n - 1do

 for j := 0 to n - 1 do

 begin

  a[i, j] := random(201) - 100;

  write(a[i, j], '; ');

  if (j = n - 1) then writeln;

  if ((j = n - i - 1) and (a[i, j] > 0)) then

  begin

   summa := summa + a[i, j];

   k := k + 1;

  end;

 end;

writeln('Среднее арифметическое положительных элементов побочной диагонали массива равно ', summa / k : 0 : 2);

readln;

end.