Надёжность паролей. Урок 2 Вставь пропущенные слова.

используется для внесения прав доступа, что позволяет защитить файл от редактирования и печати, при этом пользователи могут открыть файл и просмотреть его.

Назад

Проверить

114

266

Посмотреть ответы 1

Ответы на вопрос:

yanabutko1999

Информатика

4,8(77 оценок)

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