Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить подпрограмму,заменяющую все элементы одномерного массива,меньшие заданной величины Т,на значение этой величины и считающую число таких замен. используя эту подпрограмму,изменить каждый из двух заданных массивов Р и С и вывести на печать тот массив,в кот. Окажется большим число замен.Если же эти числа замен будут равны,отпечатать число замен.задать Т=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 )

Ответ оставил Гость

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]end;

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
Введите элементы массива P
0.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