Если нужна программа на Паскале, то будет вот так:
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
i:integer;
min:real;
a:array[1..3]of real;
begin
for i:=1 to 3 do
begin
writeln(i,' число:');
readln(a[i]);
if i=1 then min:=a[1];
if a[i]<min then min:=a[i]
end;
writeln('Наименьшее: ',min)
<span>end.</span>
<span>Если вероятности сообщений в наборе p1, ..pN равны между собой, то каждая из них равна 1/N, и формула Шеннона превращается в формулу Хартли.</span>
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел