Помогите с задачей Pascal ABC вот текст задачи: "В прямоугольной таблице указать строку, содержащую минимальный элемент, оканчивающийся на цифру k."
начало программы вот:
const
maxX=10;
maxY=5;
var T: array[1..maxX,1..maxY] of integer;
x,y,L,minValue,k: integer;
BEGIN
{необходимо ввести матрицу и цифру k}
min:=T[1,1];
L:=0;
for x:=1 to maxX do
for y:=1 to maxY do
if (abs((T[x,y])mod 10)=k)and(T[x,y] then Begin min:=T[x,y];
L:=y
End;
if L=0 then write('НЕТ НУЖНОГО ЭЛЕМЕНТА') else write('СТРОКА №',L);
END.
не знаю как дальше и общее оформление
начало программы вот:
const
maxX=10;
maxY=5;
var T: array[1..maxX,1..maxY] of integer;
x,y,L,minValue,k: integer;
BEGIN
{необходимо ввести матрицу и цифру k}
min:=T[1,1];
L:=0;
for x:=1 to maxX do
for y:=1 to maxY do
if (abs((T[x,y])mod 10)=k)and(T[x,y] then Begin min:=T[x,y];
L:=y
End;
if L=0 then write('НЕТ НУЖНОГО ЭЛЕМЕНТА') else write('СТРОКА №',L);
END.
не знаю как дальше и общее оформление
More Questions From This User See All