Написать алгоритм нахождения суммы положительных среди 10 вводимых.

Program bifi; var a: array[1..10] of real; s,i: real; begin s: =0; for i: =1 to 10 do begin readln(a[i]);                       if a[i]> 0 then s: =s+a[i];                     end; writeln(s); readln; end.

Var a, r: real; begin write('a = '); read(a); write('r = '); read(r);   if r > = a/sqrt(2) then writeln('квадрат поместится в круг') else if r < = a/2 then writeln('круг поместится в квадрат') else writeln('круг и квадрат не поместятся друг в друга') end. пояснение: радиус описанной около квадрата окружности равен половине диагонали квадрата. диагональ квадрата по теореме пифагора =  √(a² + a²) = a√2, соответственно радиус = a√2/2 = a/√2. если радиус данной окружности, больше либо равен a/√2, тогда квадрат помещается в круг. радиус вписанной в квадрат окружности равен половине его стороны, т.е a/2. если радиус данной окружности меньше либо равен, чем a/2, тогда круг вмещается в квадрат.

Одно из "быстрых по написанию" решений, не учитывающих фактор наличия массивов. это разумно: 10 за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по массивам. // pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin   var x: =arrrandom(readinteger('p=',20).sorted;   var y: =arrrandom(readinteger('q=',15).sorted;   var z: =arrrandom(readinteger('r='),1,18).sorted;   x.println; y.println; z.println;   var r: =x.intersect(y.intersect(z));   if r.count=0 then writeln('нет общих элементов')   else begin write ('общие элементы: '); r.println end end. тестовое решение p= 15 q= 13 r= 18 -19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20 -8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15 1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17 общие элементы: 4