Составить подпрограмму,заменяющую все элементы одномерного массива,меньшие заданной величины Т,на значение этой величины и считающую число таких замен. используя эту подпрограмму,изменить каждый из двух заданных массивов Р и С и вывести на печать тот массив,в кот. Окажется большим число замен.Если же эти числа замен будут равны,отпечатать число замен.задать Т=0.005,Р= (0.001;1.54; -2.75; 0.002; -0.1; 1.2; -0.47) ; С= ( -5.74; 0.0001; 4.1; 7.24; -1.5; 2.9; 0.004 )

можешь сделать так чтобы элементы массивов P и C брали из файла

Я все могу, но этого требования не было в условии. А сейчас и Вы не сможете внести в условие изменение, и я не смогу поправить решение - время истекло. Делайте новый вопрос, там я смогу дать ответ. Поскольку там решать фактически и нечего, можете его за минимум баллов поставить.

const  n=7;type  V=array[1..n] of real;procedure mReplace(t:real;var a:V;var k:integer);var  i:integer;begin  k:=0;  for i:=1 to n do    if a[i]<t then begin a[i]:=t; Inc(k) endend;var  T:real;  i,k1,k2:integer;  P,C:V;begin  Write('Введите значение T: '); Read(T);  Writeln('Введите элементы массива P');  for i:=1 to n do Read(P[i]);  Writeln('Введите элементы массива C');  for i:=1 to n do Read(C[i]);  mReplace(T,P,k1); mReplace(T,C,k2);  if k1>k2 then  begin    Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ')  end  else    if k2>k1 then  begin    Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ')  end  else Writeln('Число замен в массивах равно ',k1)end.Тестовое решение:Введите значение T: 0.005Введите элементы массива P0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47Введите элементы массива C-5.74 0.0001 4.1 7.24 -1.5 2.9 0.004Измененнный массив Р0.005 1.54 0.005 0.005 0.005 1.2 0.005