Найти средне-арифмитическое каждого столбца и занести в отдельный массив (qbasik)

223

321

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

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

Про100zvezda

Информатика

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

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure tform2.button2click(sender: tobject); var i, j, k: integer; max: integer; begin with stringgrid1 do for j: = 0 to colcount - 1 do begin k: = 0; max: = strtoint(cells[j,0]); for i: = 0 to rowcount - 1 do begin if strtoint(cells[j,i]) > max then begin max: = strtoint(cells[j,i]); k: = i; end; end; stringgrid2.cells[j,k]: = '0'; end; end;