program test1;
var r, minim, i: integer;
a: array[1..12] of integer;
begin
for i:=1 to 12 do
begin
a[i]:= random(100);
end;
minim := a[1];
for i:=1 to 12 do
begin
if minim > a[i] then
minim:= a[i];
end;
writeln('минимальное значение=', minim);
end.
program test2;
var i: integer;
var poisk: string;
a: array[1..20] of integer;
begin
for i:=1 to 20 do
begin
a[i]:= random(100);
end;
for i:=1 to 20 do
begin
if a[i] = 65 then
poisk:=poisk + i;
end;
if poisk = '' then
writeln('нет элементов массива со значением 65')
else writeln('элемент(ы) массива со значением 65 ',poisk)
end.
1
Объяснение:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Порядок действий:
Скобки; Отрицание [не, ¬]; Дизъюнкция (И) Умножение [&, ∧]; Конъюнкция (ИЛИ) Сложение [∨, +].~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
((1 ∧ 1) ∨ 0) ∧ (0 ∨ 1)
(1 ∧ 1) = 1, т. к. оба числа истинны;(1 ∧ 1) ∨ 0 = 1 ∨ 0= 1, т. к. для истинности выражения с ИЛИ необходимо, чтобы хотя бы один элемент был истинным;(0 ∨ 1) = 1, т. к. для истинности выражения с ИЛИ необходимо, чтобы хотя бы один элемент был истинным;((1 ∧ 1) ∨ 0) ∧ (0 ∨ 1) = 1 ∧ 1 = 1, т. к. оба числа истинны.
