//PascalABC.NET 3.0 const n = 5; begin var a := ArrRandomReal(n); var b := ArrRandomReal(n); write('Длины первого катета: '); foreach var i in a do write(i : 5 : 2); write(NewLine, 'Длины второго катета: '); foreach var i in b do write(i : 5 : 2); var imax := 0; for var i := 1 to n - 1 do if a[imax] * b[imax] < a[i] * b[i] then imax := i; writeln(NewLine, 'Номер: ', imax + 1); writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2); writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2); end.
Const n=10; var a,b:array[1..n] of integer; i,si,smax:integer; begin Writeln('Введите парами длины катетов ',n,' треугольников'); smax:=0; for i:=1 to n do begin Read(a[i],b[i]); si:=a[i]*b[i]; { пополам разделим потом максимальное } if si>smax then smax:=si end; Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':'); for i:=1 to n do if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]); Writeln end.
Пример работы Введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 Треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
#include <math.h>
using namespace std;
int main ()
{
float y;
cin >> y;
cout << abs(y) << endl;
system ("PAUSE");
return 0;
}