429 1113 223 1716 1212 121 422 524 25
429 быть не может, т.к это значило бы, что сумма чётных равна четыре, а нечётных 29, но даже если взять 9+9+9 29 мы не получим
1113 получить тоже нельзя, т.к. сумма любого количества чётных чисел это тоже четное число
!223 быть может
1716 не может, т.к. нужно в порядке возрастания
!1212 быть может
121 не может, т.к. тут опять 2 нечётных числа, что быть не может
422 быть не может, т.к. тогда получается 4 и 22. Если 22 состоит из Зх нечётных циферблат, то она тоже была бы нечётной, но была бы меньше 20
!524 может
!25 может
Итого:4
//первая программа
var
a:array[1..10] of integer;
Sr, i:integer;
begin
Sr := 0;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if i mod 2 = 0 then
Sr := Sr + a[i];
end;
writeln('Среднее арифметическое элементов стоящих на четных местах: ', Sr /(10 div 2));
end.
//вторая программа
var
a:array[1..3, 1..3] of integer;
Pr, count, summ, i, j:integer;
begin
pr := 1;
summ := 0;
count := 0;
for i := 1 to 3 do
for j := 1 to 3 do
begin
write('a[', i, ', ', j, '] = ');
readln(a[i, j]);
if i mod 2 = 1 then
pr := pr * a[i, j];
if a[i, j] < 0 then
begin
summ := summ + a[i, j];
count := count + 1;
end;
end;
writeln('Произведение элементов стоящих в четных строках: ', pr);
if count <> 0 then
writeln('Среднее арифметическое отрицательных элементов: ', summ / count)
else
writeln('Нет ни одного элемента отрицательного элемента');
end.
//третья программа
var
s:string;
c:char;
i:integer;
begin
s := 'Мадагаскар';
writeln('Исходная строка: ');
writeln(s);
for i := 1 to Length(s) div 2 do
begin
c := s[i];
s[i] := s[Length(s) - i + 1];
s[Length(s) - i + 1] := c;
end;
writeln('Перевернутая строка:');
writeln(s);
end.
