Ответы на вопрос:
Просто нажымаеш на кнопку ответить +(5б) если нет токой кнопки значит Ктото отвечает
Объяснение:
Дай коронку
1)const n1=1000; type mas=array[1..n1] of integer; var a: mas; n,i: integer; begin readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do write(a[i],' '); writeln; end.а вторую и третью я объединила: const n1=1000; type mas=array[1..n1] of integer; var a: mas; i,min: integer; begin randomize; for i: =1 to 5 do a[i]: =random(101)+0; for i: =1 to 5 do write(a[i],' '); writeln; min: =a[1]; for i: =2 to 5 do if a[i]< min then min: =a[i]; writeln(min); end.
Популярно: Информатика
-
суперМозг77726.10.2022 03:29
-
лолл1816.03.2020 06:12
-
sadskhoolgirl07.09.2021 02:15
-
grenki47618.06.2023 01:29
-
lvalerika29.07.2021 02:27
-
TamaraKengurs07.10.2022 01:15
-
shodruz2807199818.01.2023 05:08
-
Adilkin06.11.2021 20:45
-
ненадамине25.04.2021 20:12
-
бах802.01.2021 14:53