Вычислить сумму положительных элементов массива целых чисел без учёта максимальных значений. в среде delphi.

283

434

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

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

katyushamoshkop0dtz2

Информатика

4,5(75 оценок)

Var mas: array [1..20] of integer; function summ(var m: array of integer; length: integer): integer; var k: integer; begin randomize; //заполнение массива for k: =1 to length do m[k]: =random(5000)-2500; result: =0; //подсчёт суммы положительных элементов массива for k: =1 to length do if m[k]> 0 then result: =result+m[k]; end; procedure tform1.button1click(sender: tobject); var k, sum: integer; begin sum: =summ(mas, 20); memo1.text: ='массив чисел '; for k: =1 to 20 do memo1.lines.add(inttostr(mas[k])+','); memo1.lines.add('сумма положительных чисел '+inttostr(sum)); end;

влад2002ffffffff

Информатика

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

Сначала разобьем число надвое получим 13 и 11, т.к. числа записываются в порядке убывания, то не имеет значение какое число вычислять сначала итак: разбиваем числа 13 и 11 на составляющие 4+9=13 5+6=11 5+8=13 4+7=11 6+7=13 3+8=11 2+9=11 принципиально важно, чтоы наименьшие возможные числа располагались по наивысшим , значит число получится таким: 2949 ответ: 2949