===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.
P=0 Q=1 S=0 T=0
(0 v не 1) v (1->(0 v0))=0
в первой скобке 0, во второй тоже 0, при импликации 0=1->0
ответ
0100
Const n=15;
var
a:array[1..n]of integer;
i,i_max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(4)+15;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4);
writeln;
i_max:=1;
for i:=2 to n do
if a[i]>a[i_max]then
i_max:=i;
for i:=1 to n do
if a[i]mod 5=0 then
a[i]:=a[i_max];
for i:=1 to n do
write(a[i]:4);
<span> end.</span>
1.Купить семена (цветка)
2.Найти хорошое место для посадки цветочка
3.Вскопать яму.
4.Посадить семя.
5.Закопать яму.
6.Полить
=1*1/2=1/2=0,5
...........................