Вэт значение формулы=сумм(a1: a4) равно 13, а значение формулы=cp3haч(a1: a5) равно 3. чему ровно значение ячейки a5?

А1+а2+а3+а4=13 (а1+а2а+а3+а4+а5)/5=3 (13+а5)/5=3 => 3*5=13+а5 => 15=13+а5 => а5=2

Var n,one,dec,hun,s: integer; begin writeln (' введи четырехзначное число'); readln (n); one: = n mod 10;                     ( находим цифру на месте единиц) dec: = ( n div 10) mod 10;               на   предпоследнем разряде hun: = ( n div 100) mod 10;           на третьем разряде с конца t: = n div 1000;                                 на первом разряде s: =one+dec+hun+t; if (s mod 2=0) or ( s mod 3=0 ) then writeln (' кратна 2 или 3)   else writeln (' не кратна'); end.

//предположим, что массив уже дан var   name_of_array : array [1.. 10] of integer : = (1,1,7,1,7,1,5,7,4,10); //дальше программа. ей всё равно, какой массив дан, главное, чтобы первый индекс был равен 1 begin var i : integer : = 1;     foreach ai : integer in name_of_array do   begin       if ai = 7 then           begin           writeln(i);           break;           end       else       i += 1;   end; end.