Для того чтобы уберечь свои данные от компьютерных угроз, нужно использовать сложные и разные к разным профилям. Выбери верный ответ из выпадающего списка: браузеры сайты антивирусы пароли Назад Проверить

пароли

это правильный ответ

Пароли

Объяснение:

1)

CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
    D%(i) = RND * (2 * N + 1) - N
    PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
    IF D%(i) = T THEN
       K = K + 1
    END IF
NEXT i
PRINT "K = "; K
END

2)

CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
    D%(i) = RND * 41 - 20
    PRINT " "; D%(i);
    IF D%(i) < 7 THEN
       K = K + 1
       C%(K) = D%(i)
    END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
    PRINT " "; C%(i);
NEXT i
END

pascal

Объяснение:

1)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] > 9 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма элементов, больших 9, равна ', s);

end.

2)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма четных элементов равна ', s);

end.