Program pr_1;
Uses crt;
Var x:array[1..100,1..100] of integer;
I,j,k,m,n,z,nchet: integer;
Sr,sum: real;
Begin
Clrscr;
Writeln('vvod n');
Read(n);
Writeln('vvod m');
Read(m);
Begin
Writeln('vvedite element massiva');
For i:=1 to n do
For j:=1 to m do
Readln(x[i,j]);
End;
For i:=1 to n do
For j:=1 to m do
Begin
K:=k+1;
Sum:=sum+x[i,j];
End;
Sr:=sum*k;
Writeln('sred znach=',sr);
Begin
If (x[i,j]>0) and (x[i,j]<100) then
Begin
For i:=1 to n do
For j:=1 to m do
Begin
If k>0 then
Writeln(x[i,j]);
End;
End
Else
For i:=1 to n do
Begin
If (x[i,j] mod 2)> 0 then
nchet:= nchet+1;
Writeln('nechetnih elementov=', nchet);
End;
End;
Readln;
End.
Не могу понять, почему не получается! Буду очень благодарен!