Напишите и протестируйте программу. Поиск максимального элемента массива. Сначала создается сам массив (в этом примере это целые числа от 0 до 100 включительно). Program Max_element_massiva ;
Var i, n, max : integer ;
A : array [1..100] of integer;
Begin
Writeln('Введите количество элементов массива') ;
Readln(N) ;
Randomize;
For i := 1 to N do
begin
A[i] := Random(100);
Write(A[i]);
end;
Max := A[1];
For i := 2 to N do
if A[i]>Max then Max := A[i];
Writeln('Максимальный Элемент массива = ',Max) ;
Readln ;
End.
с решение
Полезные законы:
двойного отрицания: НЕ(НЕ(x)) = xраспределительный: (A v B) & C = A & C v B & Cпереместительный: A & B = B & A, A v B = B v Aзакон де Моргана: HE(A v B) = HE(A) & HE(B)правила операций с константами: A & 1 = A, A v 0 = AА & В v A & НЕ (В) = A & (B v НЕ(B)) = A & 1 = A
(A v В) & (A v HE (В)) = A & (A v HE(B)) v B & (A v HE(B)) = A & A v A & HE(B) v B & A v B & HE(B) = A v A & HE(B) v A & B v 0 = A & (1 v HE(B) v B) = A & 1 = A
HE(HE(X) v HE(Y)) = HE(HE(X)) & HE(HE(Y)) = X & Y
Сочинение на тему "Безопасность в интернете":
Интернет постепенно стал неотъемлемой частью жизни каждого человека. Раньше для того, чтобы найти какую-либо информацию, требовалось потратить очень много времени. Уже сегодня для этого требуется всего несколько кликов мышкой. Интернет, несомненно, имеет ряд преимуществ. Но нельзя забывать о том, что важно соблюдать безопасность в сети.
Сегодня человек практически не знает, что такое приватность. Из-за этого его легко выследить и украсть. Это в большей степени касается детей. Нельзя выставлять напоказ свою жизнь, ведь это влечет за собой последствия. Также следует помнить о плохих сайтах, несущих вирусную информацию. Такие сайты могут нанести вред технике. Для пользования Интернетом необходимы опыт и большая осторожность. Давайте будем внимательнее.
Объяснение: