Если нужна программа на Паскале, то будет вот так: program sr_ar; var a, b, c: integer; degin write('a='); readln(a); write('b='); readln(b); c:=(a+b)/2; if c mod 2 = 0 then write('c=',c) end. Единственная проблема - некорректное условие, т.к. среднее арифметическое может быть не целым числом. а операция mod применима только к целым числам. И вообще, считается, что раз есть действие деление, то результат - число не целое, а вещественное.
Var a:array[1..35]of integer; i,max,n:integer; begin readln(n); for i:=1 to n do read(a[i]); max:=a[1]; for i:=1 to n do if a[i]>max then max:=a[i]; writeln; writeln(max); end.
1. исходное число х 2.х+10 3. если (х+10)>20 то (х+10)-3 если (х+10)<20 то (х+10)+3 4.((х+10)+-3)+2 5. ответ: например 1. число 5 2. 5+10=15 3.15+3=18 4.18+2=20 5. ответ 20 ИЛИ 1. число 15 2. 15+10=25 3. 25-3=22 4.22+2=24 5. ответ:24