uses crt; var a, b, c, i, n, j :integer; s :array[1..10000] of integer; begin clrscr; writeln('Введите размер массива'); read(n); for i:=1 to n do begin s[i]:=random(46)-15; writeln ('s[', i,']=', s[i]); end; a:=s[1];for i:=1 to n do if s[i]>a then begin a:=s[i]; b:=i; end; writeln ('Наибольший элемент s[', b, ']=',a); end.
Using System; namespace Fractions{ public struct Fraction : IComparable<Fraction> { public Fraction(int numerator, int denominator) { Numerator = numerator; Denominator = denominator; } public int Numerator; public int Denominator; public int CompareTo(Fraction other) { return (Numerator * other.Denominator).CompareTo(other.Numerator * Denominator); } } public class Program { static void Main(string[] args) { int numerator, denominator; Console.Write("Числитель первой дроби "); numerator = int.Parse(Console.ReadLine()); Console.Write("Знаменатель первой дроби "); denominator = int.Parse(Console.ReadLine()); var fraction1 = new Fraction(numerator, denominator); Console.Write("Числитель второй дроби "); numerator = int.Parse(Console.ReadLine()); Console.Write("Знаменатель второй дроби "); denominator = int.Parse(Console.ReadLine()); var fraction2 = new Fraction(numerator, denominator); var compareResult = fraction1.CompareTo(fraction2); if (compareResult < 0) Console.WriteLine("<"); else if (compareResult > 0) Console.WriteLine(">"); else // = 0 Console.WriteLine("="); } }}
ответ: 13
100 / 8 = 12.5
Округляем в большую сторону - 13 Байт