Десятые-это 0 и после него 1 цыфра например 0,1,если сотые то после 0 2 цыфры например 0,01,если тысячных,то 3 цыфры,например 0,001 и т.д
Var
c:array[1..1000,1..1000] of integer;
i,j,n,m,sum,aver:longint;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
begin
read(c[i,j]);
sum:=sum+c[i,k];
end;
aver:=sum div (n*m);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
if c[i,j]<aver then c[i,j]:=0 else c[i,j]:=255;
write(c[i,j],' ');
end;
end;
end.
Проверьте на синтаксические ошибки. В данный момент не могу сам это скомпилировать
15)program 15;
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.