Раставьте между цифрами знаки арифметических действий (плюс,минус,умножение,деление) и, если надо,скобки, чтобы ответ оказался равным 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
Ответы на вопрос:
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.
Популярно: Информатика
-
susystgr31.12.2022 12:43
-
F3ren9d07.02.2021 13:25
-
McGravii10.03.2022 04:00
-
qd133723.04.2023 05:34
-
09alan09.04.2020 14:27
-
КнОпОськА896508.08.2020 11:15
-
vulf2009.06.2023 22:36
-
лера228530.12.2021 08:03
-
бегуния13.03.2023 02:25
-
MAXguychenya12.03.2020 06:47