Для корректной работы программы диапазоны не должны пересекаться, то есть, должно быть так: X1 ≤ X2 < Y1 ≤ Y2 < Z1 ≤ Z2
Var X1,X2,Y1,Y2,Z1,Z2,G:byte; Begin Write('X1 = ');ReadLn(X1); Write('X2 = ');ReadLn(X2); Write('Y1 = ');ReadLn(Y1); Write('Y2 = ');ReadLn(Y2); Write('Z1 = ');ReadLn(Z1); Write('Z2 = ');ReadLn(Z2); Write('G = ');ReadLn(G); if (X1<=G)and(G<=X2) then WriteLn('Полутяжёлый вес') else if (Y1<=G)and(G<=Y2) then WriteLn('Тяжёлый вес') else if (Z1<=G)and(G<=Z2) then WriteLn('Супертяжёлый вес') else WriteLn('Не попадает в данные весовые категории') End.
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Write('Количество элементов, превышающих 2, равно '); Writeln(a.Rows.SelectMany(x->x).Where(x->x>2).Count) end.