Задан полный путь к файлу c: \book\copy.txt каково имя каталога, в котором находится файл copy.txt?
104
130
Ответы на вопрос:
Var a: array[1..10] of integer; m, i,s: integer; begin randomize; for i : = 1 to 10 do begin a[i] : = random(+10) + 1; if a[i] > m then m : = a[i]; end; for i : = 1 to 10 do begin if a[i]=m then s: =s+1; end; writeln(s); end.
Популярно: Информатика
-
Lisova112.02.2020 06:10
-
nataliolejic24.10.2020 03:58
-
julija7402.02.2022 05:28
-
taraniariba18.04.2020 23:59
-
nikvermenox7gay21.11.2022 01:08
-
marina070827.02.2020 23:52
-
KEK2281337148803.04.2023 04:30
-
danchik6019.05.2023 17:14
-
hatikomurka21.02.2020 04:09
-
3klass115.05.2021 16:27