Const n=10;
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
<span>end.</span>
1 дерево вершина + ветка + ствол
2 дерево вершина + две ветки
3 дерево ветка + ствол
#include <iostream>
#include <iomanip> // std::setprecision
int main()
{
unsigned int W,H,K,P;
unsigned long M;
float T;
std::cin >> W >> H >> K >> P >> M >> T;
unsigned int n = (W*H);
std::cout << (n = ((n / K) + !(!(n % K)))) << " ";
std::cout << (n = (n*P)) << std::endl;
std::cout << ((M-n > 0) ? "YES" : "NO") << std::endl;
std::cout << std::setprecision(4) << (float(n) / T) << std::endl;
return 0;
}