Смотри файл целая часть и дробная переводятся отдельно
<em>PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
<em>1. Заданный контрольный пример:</em>
begin
var a:=Arr(4,-5,3,10,-4,-6,8,-10,1,0); a.Println;
var im1,im2:integer;
if a[im1]<a[im2] then Swap(im1,im2);
for var i:=2 to a.High do
if a[i]>a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
<u>Результат</u>
4 -5 3 10 -4 -6 8 -10 1 0
a[4]=10, a[7]=8
<em>2. Решение задания</em>
begin
var a:=ArrRandom(10,-10,10); a.Println;
var im1,im2:integer;
if a[im1]<a[im2] then Swap(im1,im2);
for var i:=2 to a.High do
if a[i]>a[im1] then begin im2:=im1; im1:=i end
else
if a[i]>a[im2] then im2:=i;
WritelnFormat('a[{0}]={1}, a[{2}]={3}',im1+1,a[im1],im2+1,a[im2])
end.
<u>Пример</u>
-1 10 -6 3 -4 -3 -4 7 0 -7
a[8]=7, a[4]=3
Из математики:
треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения:
program qq;
uses crt;
var a, b, c, p: integer;
begin
p:=0; // обнуляем переменную
writeln('Введите через пробел значения a, b и с');
readln (a, b, c);
if a<=(b+c) then
if b<=(a+c) then
if c<=(b+a) then
p:=1; //если все условия
//выполнены то треугольник
//существует. присваиваем переменной значение 1.
writeln (p);
<span>end.</span>
Можно закодировать двумя битами, этого достаточно, чтобы описать четыре цвета