Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
1. 16*32*25*2=25600 байт/1024=25 Кбайт
2.16*32*20*2=<span><span>20480 байт=20 Кбайт
3.32*32*30*1=</span></span><span><span>30720 байт=30 Кбайт</span></span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(17,42,65); a.Println;
var k:=a.Where(t->t=50).Count; // кол-во элементов =50 - задание 2
Writeln('Кол-во элементов, равных 50: ',k);
a.Transform(t->t=50?0:t); a.Println // замена и вывод - задание 1
end.
<u>Пример</u>
65 45 55 47 50 44 45 43 50 51 44 43 56 45 65 51 65
Кол-во элементов, равных 50: 2
65 45 55 47 0 44 45 43 0 51 44 43 56 45 65 51 65