Расставьте между цифрами знаки арифметических действий и если надо скобки чтоб ответ оказался 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
128
302
Ответы на вопрос:
Вроде правильно const n= ; (поставь любое положительное число, это количество элементов в массиве) var a: array [1..n] of real; i: integer; min: real; begin for i: =1 to n do begin readln (a[i]); writeln ('a[i', i, ']=', a[i]); end; min: =a[i]; for i: =1 to n do if a[i] mod 3=0 then if a[i]< min then min: =a[i]; if (a[1]=min) and (a[1] mod 3< > 0) then writeln ('нет чисел, делящихся на 3') else writeln (min); end.
Популярно: Информатика
-
Nezhdanchik22818.02.2020 23:41
-
Zarinaoo18.09.2022 13:22
-
dianaaloyts24.07.2021 00:21
-
Mv085626.02.2021 15:58
-
Машуничка1211.10.2022 22:17
-
kirillmich1618.05.2020 20:17
-
НастМал19.03.2021 16:48
-
gfsggstgf08.05.2022 00:46
-
Kunpaw24.08.2022 17:43
-
sickman199124.12.2020 19:48