an145632

const nmax=10;
var a: array[1..nmax,1..nmax] of integer;
n,i,j,mn,mx,m,k,v,tmp,sum:integer;
begin
clrscr;
randomize;
write(',nmax,'n= ');
repeat
readln(n);
until n in [1..nmax];
writeln('*');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
for j:=1 to n do
begin
mx:=a[1,j];
mn:=a[1,j];
for i:=1 to n do
begin
if a[i,j]>mx then mx:=a[i,j];
if a[i,j]<mn then mn:=a[i,j];
end;
a[1,j]:=(mx+mn) div 2;
end;
writeln('');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
write('');
readln;
writeln;
for k:=1 to (n*n-n)div 2 do
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if j<n then
begin
if a[i,j+1]>a[i,j] then
begin
tmp:=a[i,j+1];
a[i,j+1]:=a[i,j];
a[i,j]:=tmp;
end;
end
else
if (a[i+1,i+2]>a[i,j])and(i<n-1)
then
begin
tmp:=a[i+1,i+2];
a[i+1,i+2]:=a[i,j];
a[i,j]:=tmp;
end;
writeln(' m=',m);
readln(m);
ДИАПАЗОН!!!!!!!!
for j:=0 to n-1 do begin
if (a[] mod 2=0) then
sum :=sum+a[m,j];
end;
ДИАПАЗОН!!!!!!!!
end;
writeln('');
for i:=1 to n do
begin
for j:=1 to n do
begin
if j>i then
begin
textcolor(12);
write(a[i,j]:3);
end
else
begin
textcolor(15);
write(a[i,j]:3);
end;
end;
writeln;
end;
textcolor(15);
readln
end.


нужно определить диапазон для вычисления суммы четных элементов в данной строке

Vladimir_S

Помочь-то можно, но не прежде, чем будет ПОЛНОСТЬЮ выложено задание. Пока — невразумительно:В какой "данной" строке? Зачем нужен диапазон при определении суммы чётных элементов? Что вообще в данном случае понимается под "диапазоном"?
P.S. Ответы типа "не знаю, мне так дали!" НЕ ПРИНИМАЮТСЯ.
P.P.S. Пока лишь отмечу, что употребление CRT-команд (ClrScr, TextColor) без присоединения самогО модуля — грубейшая ошибка. Т.е. в самом начале программы должна быть строка
uses CRT;