Подскажите как исправить программу или сами исправьте ошибки.
Условие Составить процедуру, заменяющую все элементы одномерного массива, меньшие значения величины Т, на значение этой величины и считающую число таких замен k.
Используя эту процедуру, изменить каждый из двух заданных массивов P и С и вывести на печать тот массив , в котором окажется больше число замен. Если же эти числа замен будут равны, вывести число замен.
Программа
Program V;
type massiv=array[1..10] of real;
Procedure prim(Var X:massiv;Var k,N:integer;Var TT:real);
Var i:integer;
begin
k:=0;
for i:=1 to N do
begin
if X[i]<TT
then
begin
X[i]:=TT;
k:=k+1;
end;
end;
end;
Var
P:massiv;
C:massiv;
i,n,kp,kc:integer;
T:real;
begin
write('vv n,T');
readln(n,T');
for i:=1 to n do
begin
write('vv P[',i,']);
readln(P[i]);
end;
for i:=1 to n do
begin
write('vv C[',i,']);
readln(C[i]);
end;
prim(P,kp,n,T);
prim(C,kc,n,T);
if kp>kc
then
begin
for i:=1 to n do
writeln('P[i]',P[i]:7:3)
end
else
begin
if kp=kc
then writeln('kp=',kp)
else
begin
for i:=1 to n do
writeln('C[i]',C[i]:7:3);
end;
end;
end.
1) Почему описание процедуры разместилось в разделе описания переменных?
2)
if kp>kc
then writeln('P[i]',P[i]:7:3)
else
begin
if kp+kc
then writeln('kp=',kp)
else writeln('C[i]',C[i]:7:3);
end;
Вывод элементов массива, как и ввод, осуществляется в цикле.
Исправил вверху программу, если неправильно, то скажи где описывать процедуру
Если правильно то скажите, что правильно
Спасибо исправил программу, проверил на компьюторе, она работает
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)