<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Минимальный элемент ',a.Min);
end.
<u>Пример</u>
n= 18
-14 13 39 -5 -39 -8 39 41 -2 -49 -32 18 -33 -50 10 2 -2 3
Минимальный элемент -50
{общий член последовательности можно задать формулой Sn=((An-1)+(Bn-1))/(An-1) где A- числитель, В - знаменатель }
const n=10;
var A,B,C,i,k: integer;
begin
A:=1; B:=1;
{ вывод последовательности на экран }
for i:=2 to n do
begin
C:=A; A:=A+B; B:=C;
writeln(i,' -> ',A,'/',B);
end;
{ подсчет k - го члена }
k:=20; A:=1; B:=1;
for i:=2 to k do
begin
C:=A; A:=A+B; B:=C;
end;
writeln(k,' - ый элемент = ',A,'/',B);
<span>end.
</span>
пришли фото ,может помогу
// PascalABC.NET 3.3.5
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите массив:',n);
Writeln(a.Where(x->(x mod 3<>0)).Average);
end.
Пример:
n= 5
Вводите массив: 20 15 11 45 32
21
В вашу исходную программу, после Task('cif2'); надо добавить следующие строки, задающие алгоритм действий для робота:
while FreeFromRight do
begin
Right;
if WallFromUp then Paint;
if WallFromDown then Paint;
end;
Или, можно ещё немного сократить, объединив два условия в одном if (если вы уже проходили логические операторы OR):
while FreeFromRight do
begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
