Чи обов'язково, щоб TCheckBox був обраний?
Чи обов'язково, щоб TRadioButton був обраний?

113

281

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

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

nstratonova

Информатика

4,7(50 оценок)

Сортировка пузырьком var a: array[1..5] of integer; i, j, t, s, p: integer; begin for i: =1 to 5 do readln(a[i]); for i: =1 to 4 do for j: =1 to 4 do if a[j] > a[j+1] then begin t: =a[j]; a[j] : = a[j+1]; a[j+1] : = t; end; for i: =1 to 5 do write(a[i], ' '); writeln; s: =0; p: =1; for i: =1 to 5 do begin s: =s+a[i]; p: =p*a[i]; end; writeln(s, ' ', p); end.