Попробуйте. Конечно, можно использовать встроенную в PascalABC.Net функции min(a, b), для определиня минимального числа. Но чтобы наверняка не было бы проблем, можно пойти стандартным путем.
Объяснение:
program YourTitle;
var a,b,c,d, min:integer;
BEGIN
writeln('Введите 4 целых числа через пробел или Enter -> ');
readln(a,b,c,d);
min:=a;
if b<a then min:=b;
if c<b then min:=c;
if d<c then min:=d;
writeln('Меньшее из чисел = ',min);
min:= min * 5;
writeLn('Увеличенное в 5 раз: ', min);
END.
// PascalABC.NET
function ВерхнийТреугольник(Матрица: array[,] of integer):
sequence of integer;
begin
var ИндексMax := Матрица.RowCount - 1;
for var ИндексСтроки := 0 to ИндексMax - 1 do
for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do
yield Матрица[ИндексСтроки, ИндексСтолбца]
end;
begin
var n := ReadInteger('N =');
var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);
СлучайнаяМатрица.Println;
var ПоложительныеЭлементы :=
ВерхнийТреугольник(СлучайнаяМатрица)
.Where(Значение -> Значение > 0);
Println('Сумма положительных элементов равна',
ПоложительныеЭлементы.Sum);
Println('Число положительных элементов равно',
ПоложительныеЭлементы.Count)
end.
