<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var s:=ReadlnString('->');
var a:=s.ToCharArray.Select(c->c.ToDigit).Partition(i->i.IsOdd);
Writeln('Ср.арифм. нечетных: ',a[0].Average:0:4,
', ср.арифм. четных: ',a[1].Average:0:4)
end.
Пример:
-> 364063632
Ср.арифм. нечетных: 3.0000, ср.арифм. четных: 4.0000
<span>Слово integer обозначает целый тип (является идентификатором целого типа).
</span>for, while и <span>repeat
</span>15 = 1111<span>
</span>
во-первых: задан ли двумерный массив с?
во-вторых, операторская скобка begin не нужна
в-третьих не поставлена точка с запятой после <span>c[i,j]:=a[i,j]+ a[i,j]</span>
<span>скоре всего ошибка в третьем...</span>
<span>алгоритм выполняет следующее: он берет элемент из двум. массива и в новый двумерный на это же место присваевает элементу значние, равное сумме этого элемента и его себя опять же,или,подругому, присвает ему значение, равное двум соотв. ему элементам в массиве предыдущ</span>
<span>например</span>
дан массив 2х3:
1 3 45
9 8 2344
тогда новый массив будет иметь вид:
2 6 90
18 16 4688
Var i:integer;
begin
For i:=1 to 10 do
begin
writeln (sqr(i));
end;
<span>end.</span>
Передаються на при печате ! Електро звуками !