Примеры средств обеспечения информационной безопасности для каждого вида

273

275

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

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

mohob

Информатика

4,6(5 оценок)

uses crt; vari, n, k: integer; mas : array [1..5] of integer; beginrandomize; n: = 5; for i: = 1 to n domas[i]: = random (1000)+1000; for i: = 1 to n dowrite (mas[i],' '); writeln; for i: = 1 to n do beginmas[i]: = mas[i] mod 100 div 10; if mas[i] mod 2 = 0 then k: = k+1; end; writeln (k); readkey; end.