Дан массив целых чисел заданных до 100 найти сумму элементов массива больше 50 и кол во элементов больше 50 плз, желательно с программой плз

125

242

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

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

ArtemkaCrash

Информатика

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

Pascalabc.net 3.3 begin var a: =arrrandom(20,1,100).println; writeln('s = ',a.where(x-> x> 50).sum); writeln('k = ',a.where(x-> x> 50).count); end. пример: 15 65 62 66 81 77 7 94 95 31 91 41 29 61 10 78 21 24 30 7 s = 770 k = 10

mwdep08pan

Информатика

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

Const n=10; var a: array[1..n] of integer; i,j,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(50); write(a[i]: 4); end; writeln; for i : = 1 to n-1 do for j : = 1 to n-i do if a[j] < a[j+1] then begin k: =a[j]; a[j]: =a[j+1]; a[j+1]: =k; end; for i: =1 to n do write(a[i]: 4); writeln; end.