Написать программу в паскале, определяющую индекс элемента с заданными свойствами в строке или столбце и выполняющую действия над вещественной матрице заданий размерностью 5*5.Свойства-первый положительный элемент в строке. Действие: переставить элемент с заданным свойством в каждой строке в первый столбец соответствующей строки.
s: string;
a, b: integer;
begin
readln(s);
if s[1] = 'x' then begin
a := StrToInt(s[3]);
b := StrToInt(s[5]);
if s[2] = '-' then a := -a;
writeln(b - a);
end
else if s[3] = 'x' then begin
a := StrToInt(s[1]);
b := StrToInt(s[5]);
if s[2] = '-' then begin
a := -a;
b := -b;
end;
writeln(b - a);
end
else if s[5] = 'x' then begin
a := StrToInt(s[1]);
b := StrToInt(s[3]);
if s[2] = '-' then
b := -b;
writeln(a + b);
end
end.
учтите что никакой защиты от дурака или неверного ввода