Даны 3 различных целых числа. найти среднее из них. basic.

Input "a="; a min=a max=a input "b="; b if b< min then min=b if b> max then max=b input "c="; c if c< min then min=c if c> max then max=c s=a+b+c-max-min print "s="; s если речь идет о среднем арифметическом, то input "a="; a input "b="; b input "c="; c s=(a+b+c)/3 print "s="; s

Необходимо сравнить их   бейсик не знаю вот в паскале накидал. думаю не много зная синтаксис бейсика проблем не будет. uses crt; var a,b,c,min,max,srednee: integer; begin writeln('введите 3 целых числа: ');   read(a,b,c);   ax: =a else max: =b;   if c> max then max: =c; if a< b then min: =a else min: =b; if c< min then min: =c; srednee: =a+b+c-mn-mx; write('среднее число=',srednee); end.

Const   n = 10; var   x: array[1..n] of integer;   i, k: integer; begin   randomize;   writeln('элементы массива');   k : = 0;   for i : = 1 to n do   begin       x[i] : = random(51)-25;       write(x[i]: 4);       if x[i]> 0 then inc(k)   end;   writeln;   writeln('количество положительных элементов массива равно ',k); end. тестовое решение: элементы массива     1  13  -1    0 -25    7 -15 -21  14    9 количество положительных элементов массива равно 5

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