Даны действительные числа x, y,z. проверить, нет ли среди них одинаковых чисел и выдать соответствующее сообщение. если среди данных чисел нет одинаковых, то большее из x, y,z заменить средним арифметическим двух оставшихся значений.

visual basicвыделить код

option explicit

function min_3(a as variant, b as variant, c as variant) as variant

    min_3 = a

    if a > b then min_3 = b

    if min_3 > c then min_3 = c

end function

private sub form_activate()

dim a as integer, b as integer, c as integer

a = val(inputbox("введите число"))

b = val(inputbox("введите число"))

c = val(inputbox("введите число"))

print "наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & min_3(a, b, c)

end sub

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.

(телефон) поверчу волшебный круг,- и меня услышит друг.  (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это  )