MrSTEP

номер 5

uses crt;
var a:array [1..50,1..50] of real; i,j,m,n,x,k:integer;
begin
clrscr;
writeln ('Введи размер массива:');
{10 12}
read (m,n);
writeln ('Вводи массив');
{* * * *
* * * *
* * * *}
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);
writeln ('Срока, где необходимо сделать замену');
{9}
readln (x);
writeln ('Введи число К');
{k}
readln (k);
for i:=1 to n do
if a[x,i]>0 then
a[x,i]:=k;
writeln ('Результат');
for i:=1 to m do begin
for j:=1 to n do
write (a[i,j]:3:1,' ');
writeln;
end;
readkey;
end.

Зведочки - числа в массиве, так вводить надо.