Pascal, дан целочисленный массив из 30 элементов. как найти сумму элементов после первого положительного? ?

122

491

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

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

Agartala236

Информатика

4,4(97 оценок)

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin var a: =arrrandom(30,-99,99); a.println; writeln('s=',a.skipwhile(x-> x< =0).skip(1).sum) end. тестовое решение: -86 -3 -66 19 87 46 44 73 17 -18 37 83 31 33 15 -71 -26 30 -17 24 10 45 3 84 8 82 -88 81 8 56 s=677

rimmabuketova

Информатика

4,8(48 оценок)

Const n= 30; var a: array[1..n] of integer; i,s,f: integer; flag: boolean; begin flag: =false; for i: =1 to n do begin a[i]: =random(-50,51); if (not flag) and (a[i]> 0) then begin flag : =true; f: =i; end; write(a[i]: 4); end; writeln; for i: =f+1 to n do s: =s+a[i]; writeln(s); end.