const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
Var alfa, a1, c, a, g, m, cs : real;
begin
alfa:=30;
c:=13;
a:=-18;
g:=4+(c-a)*(c-a);
a1:=3.14*alfa/180;
cs:=cos(a1-a1*a1);
m:=9.8*(c-a)*(a-c)*cs*cs;
writeln('g = ',g,' m = ',m);
end.
Результат:
g = 965 m = -8843.80431485503
Во вложении схема, позволяющая определить цвет, который получается при смешении двух базовых. Достаточно выбрать вершину, которая находится между вершинами с исходными цветами. В нашем случае между Y и C находится G - зеленый (Green).
НЕ (число > 60) И (число > 30)
(число < 60) И (число > 30)
30 < число < 60 (Так как "И")
число ∈ (30 ; 60)
Для числа 3.
(3 > 1)=1(истина))
(3 > 2)=1(истина)
(3 = 3) = 1(истина)
1 ∧ 1 ∧ 1 = 1 * 1 * 1 = 1(истина)