1. Чему будет равна переменная «с» после выполнения этой программы:
a = 17
b = 43
b = -1 a + a
с= ь% (b + а)
2. Чему будет равна переменная «с» после выполнения этой программы:
a = 97
с доо
b = 28
b = a % b + b
с= a % ъ + a
3. Чему будет равна переменная «с» после выполнения этой программы:
a = 40
6
ъ = a 1 -
с = a % (b + 9)
Решите подробно 3 задачи, ​

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении

1. Короткий вариант

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(10,10,20); a.Println;
  Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum);
  a.Transform(x->x-5); a.Println
end.

Тестовое решение
14 17 12 17 20 11 13 18 19 20
Сумма кубов 46517
9 12 7 12 15 6 8 13 14 15

2. "Школьный вариант"

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
  a:array[1..10] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 10 do begin
    a[i]:=Random(11)+10;
    Write(a[i],' ');
    s:=s+a[i]*sqr(a[i])
    end;
  Writeln;
  Writeln('Сумма кубов ',s);
  for i:=1 to 10 do begin
    a[i]:=a[i]-5;
    Write(a[i],' ')
    end;
  Writeln
end.