Полтора землекопа.королю замка еинавзан пришло донесение, что на его обитель идут войска грозного противника. у жителей королевства может быть только одно преимущество – запереться в замке и отражать атаки врага с крепостных стен, пока не подойдет союзников. чтобы увеличить шансы на успех, король приказал выкопать ров вокруг замка, но времени осталось катастрофически мало, через два дня враг будет уже слишком близко. королю понять, сколько людей надо отправить на подготовку рва, пока остальные жители окрестных деревень будут перебираться в замок и готовить запасы, если за день один землекоп может выкопать ров длиной в 3 метра, а длина предполагаемого рва – 1400 метров.формат выводаодно число - необходимое количество землекопов., нужны ответы на python

ditch_length = 1400

one_digger = 3

diggers = ditch_length // one_digger

print(diggers / 2)

Объяснение:

1)var

a:array[1..5]of integer;

i,n,s:integer;

begin

 writeln('Введите кол-во элементов');

 readln(n);

 writeln('Введите число');

 s:=0;

 for i:=1 to n do begin

   read(a[i]);

   if a[i]>0 then s:=s+a[i]

 end;

 writeln('Сумма положительных элементов массива равна ', s)

end.

2)var

a:array[1..10]of integer;

i,n,P:integer;

begin

 writeln('Введите число элементов');

 readln(n);

 writeln('Введите число');

 P:=1;

 for i:=1 to n do begin

   read(a[i]);

   if a[i] mod 6 = 0  

   then P:=P*a[i]

 end;

 writeln('Произведение элементов массива кратных 6 равна ',P)

end.

3)var

a:array[1..5]of integer;

n,i:integer;

begin

 writeln('Введите кол-во элементов');

 readln(n);

 writeln('Введите число');

 for i:=1 to n do begin

   read(a[i]);

   if a[i]>0 then begin

   a[i]:=a[i]*3;

   writeln('Новый элемент равен: ',a[i])

 end;

 if a[i]<=0 then begin

   a[i]:=a[i]+5;

    writeln('Новый элемент равен: ',a[i])

 end;

 end;

end.

Буду рад если отметишь мой ответ как лучший

Var a,b:array [1..100,1..100] of real;
    current_row,current_column,rows,columns:integer;

begin
  readln(rows);
  readln(columns);

  for current_row := 1 to rows do begin
    writeln();
    for current_column := 1 to columns do begin
      read(a[current_row,current_column]);
      b[current_row,current_column] :=a [current_row,current_column] / 8;
    end;
  end;

  for current_row := 1 to rows do begin
    writeln();
    for current_column := 1 to columns do
      write(b[current_row,current_column]:4, ' ');
  end;
end.