Умоляю сделайте и не удаляйте

Question

Информатика: Умоляю сделайте и не удаляйте

mytaevafati · Accepted Answer

//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.

MOGZ ответил