Дан массив целых чисел a. найти суммы положительных и отрицательных элементов массива, используя функцию определения суммы.

126

137

Посмотреть ответы 1

Ответы на вопрос:

sofijamikisko

Информатика

4,6(15 оценок)

//знаю, что это решение далеко от понятия "изящество" //pascal abc.net v3.0 сборка 1111 var max1,max2,max3,i,maxi1,maxi2: integer; ar: array of integer; begin max1: =-2147483648; max2: =-2147483648; max3: =-2147483648; setlength(ar,1); readln(ar[0]); i: =0; repeat inc(i); setlength(ar,i+1); readln(ar[i]); until ar[i]=0; for i: =0 to i do if ar[i]> max1 then begin; max1: =ar[i]; maxi1: =i; end; for i: =0 to i do if (ar[i]> max2) and (i< > maxi1) then begin; max2: =ar[i]; maxi2: =i; end; for i: =0 to i do if (ar[i]> max3) and (i< > maxi1) and (i< > maxi2) then max3: =ar[i]; write('max1=',max1,' max2=',max2,' max3=', max3); end.