Правила судейства в международных соревнованиях по одному из видов спорта таковы: выступление каждого спортсмена оценивают n судей; максимальная и минимальная оценки (по одной, если их несколько) каждого спортсмена отбрасываются; в зачёт спортсмену идёт среднее арифметическое оставшихся оценок. информация о соревнованиях представлена в электронной таблице:
Sub Main()
Dim a(10) As Integer
Dim b As Integer = 1
Dim c As Integer
Dim R As Random = New Random()
For i As Integer = 0 To 10
a(i) = R.Next(12)
Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
Next
For i As Integer = 0 To 10
If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
Next
Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
Console.Read()
End Sub
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.