#include <iostream>
using namespace std;
int main()
{
double L = 0;
int n = 0;
cout << "Введите длину бревна" << endl;
cin >> L;
cout << "Введите в скольких местах распилили бревно" << endl;
cin >> n;
cout << "Средняя длина получившихся кусков: " << L/(n+1) << endl;
return 0;
<span>}</span>
номер 4, так как две собаки в этой части не допущены.
Var
n,i,j,c:integer;
a:array[1..201] of integer;
begin
writeln('введите колөво элементов массива');
readln(n);
for i:=1 to n do a[i]:=-100+random(201);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
c:=a[j];
a[j]:=a[i];
a[i]:=c;
end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
writeln;
end.
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Надо было написать бы еще среду программирования. Пишу на Qbasic