Есть ответ 👍

Раставьте между цифрами знаки арифметических действий (плюс,минус,умножение,деление) и, если надо,скобки, чтобы ответ оказался равным 1. 1 2 3=1 1 2 3 4=1 1 2 3 4 5=1 1 2 3 4 5 6=1 1 2 3 4 5 6 7=1 1 2 3 4 5 6 7 8=1

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

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

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

1) + : 2) * + - 3) + : + : 4) * + - + : 5) + : + : +: 6) *+-+: +:

Var a: array[1..10] of real; b,c: integer; max: real; begin c: =0; writeln('введите элементы массива'); for b: =1 to 10 do begin readln(a[b]); end; max: =a[1]; for b: =1 to 10 do begin if a[b]> max then max: =a[b]; end; for b: =1 to 10 do begin if a[b]=max then c: =c+1; end; writeln('количество элементов,имеющих максимальное значение равняется ',c); end.

Популярно: Информатика