Паскаль. даны три действительных числа a,b,c. присвоить программной переменной ymin значение min {a,b,c}.

282

356

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

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

BERE1337

Информатика

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

Program min; var a,b,c,ymin: integer; begin writeln('введите три числа : '); readln(a,b,c); if a> b then ymin: =b else ymin: =a; if b> c then ymin: =c else ymin: =b; if a> c then ymin: =c else ymin: =a; writeln('наименьшее значение = ',ymin); readln; end.

abroe

Информатика

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

Const n = 16; var a: array[1..n] of integer; i, s: integer; begin randomize; writeln('элементы массива'); s : = 0; for i : = 1 to n do begin a[i] : = random(20); write(a[i]: 3); if a[i]< 8 then s: =s+a[i] end; writeln; writeln('сумма элементов, меньших 8, равна ',s) end. тестовое решение: элементы массива 8 5 12 10 4 7 11 18 13 17 18 2 5 1 3 16 сумма элементов, меньших 8, равна 27