1) var arr: array[1..17] of smallint; k, i: smallint;
begin randomize(); k := 0; write('Массив до замены: '); for i := 1 to 17 do begin arr[i] := random(10, 99); write(arr[i], ' '); end; writeln(); write('Массив после замены: '); for i := 1 to 17 do begin if arr[i] = 50 then begin arr[i] := 0; k := k + 1; write(' '); //эта строка только для оформления вывода, она необязательна end; write(arr[i], ' '); end; writeln(); writeln('Кол-во замененных элементов: ', k); end.
2) var arr: array[1..17] of smallint; k, i: smallint;
begin randomize(); k := 0; write('Массив до замены: '); for i := 1 to 17 do begin arr[i] := random(10, 99); write(arr[i], ' '); if arr[i] = 50 then k := k + 1; end; writeln(); writeln('Кол-во элементов, равных 50-ти: ', k); end.
Могу накинуть мыслей: Когда информация передается по открытым каналам, она может подвергнутся перехвату, многих такая ситуация не устраивает, и не многие принимают меры, а именно: начинают использовать зашифрованный канал между двумя собеседниками(вроде можно и большее кол-во пользователей).
Хакер - Ева, Объект отправки - Маша, Объект приёма - Коля.
Маша кодирует информацию(шифрует) -> отправляет Коле |подключается Ева (пытается прочитать инфу, а она собака зашифрована, у Евы нету ключа (алфавита) дешифровки, она осталась с дыркой от бублика)| -> Коля получил инфу (расшифровал заранее полученным по почте или через пересылку ключём (алфавитом), остался рад, он получил любовное послание, никто его не перехватил
var
arr: array[1..17] of smallint;
k, i: smallint;
begin
randomize();
k := 0;
write('Массив до замены: ');
for i := 1 to 17 do
begin
arr[i] := random(10, 99);
write(arr[i], ' ');
end;
writeln();
write('Массив после замены: ');
for i := 1 to 17 do
begin
if arr[i] = 50 then begin
arr[i] := 0;
k := k + 1;
write(' '); //эта строка только для оформления вывода, она необязательна
end;
write(arr[i], ' ');
end;
writeln();
writeln('Кол-во замененных элементов: ', k);
end.
2)
var
arr: array[1..17] of smallint;
k, i: smallint;
begin
randomize();
k := 0;
write('Массив до замены: ');
for i := 1 to 17 do
begin
arr[i] := random(10, 99);
write(arr[i], ' ');
if arr[i] = 50 then k := k + 1;
end;
writeln();
writeln('Кол-во элементов, равных 50-ти: ', k);
end.