1) Вычисляем длины всех его сторон
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
№1
#include <iostream>
using namespace std;
int main ()
{
<span> int a,b;</span><span>
cin >> a >> b;</span><span>
if (a<b)</span><span> cout << a << endl;
</span><span> else if (a==b)</span><span> cout << "a=b" << endl;
</span><span> else</span><span> cout << b << endl;
</span><span> system ("PAUSE");</span><span>
return 0;
</span>}
№2
#include <iostream>
using namespace std;
int main ()
{
<span> char ch1,ch2;</span><span>
int i1,i2;</span><span>
cin >> ch1 >> ch2;</span><span>
i1=ch1;
</span><span> i2=ch2;</span><span>
if (i1<=i2)</span><span> cout << ch1 << ' ' << ch2 << endl;</span><span>
else</span><span> cout << ch2 << ' ' << ch1 << endl;</span><span>
system ("PAUSE");</span><span>
return 0;
</span>}
№3
#include <iostream>
using namespace std;
int main ()
{
<span> float p,q;
</span><span> cout << "p=";</span><span>
cin >> p;</span><span>
cout << "q=";</span><span>
cin >> q;
</span><span> cout << p-2*q << endl;
</span><span> system ("PAUSE");</span><span>
return 0;
</span><span>}</span>