Задан адрес электронной почты в сети интернет [email protected] . имя владельца этого почтового ящика: 1) dnttm.ru 2) dnttm 3) sch_19 4) sch

Верный  вариант ответа 3

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) end 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