Ответы на вопрос:
uses crt; var a: array[1..50] of integer; i,j,k,min: integer; beginwriteln('стоимости книг: '); for i: =1 to 50 do begin a[i]: =random(99-20+1)+20; {цены книг рандомно по формуле random(max-min+1)+min; то есть, если нужны другие цены, то менять их здесь} write(a[i]: 3); end; writeln; writeln('стоимость десяти самых дешёвых книг: '); min: =99; for j: =1 to 10 do begin for i: =1 to 50 do begin if a[i]< min then begin min: =a[i]; k: =i; end; end; write(min: 3); a[k]: =99; min: =99; end; writeln; end.
Популярно: Информатика
-
Sofiagatsenko30.09.2021 01:25
-
icidarmitrim19.04.2020 18:23
-
Anastasiya343429.03.2020 20:59
-
zhenyakulakova09.02.2022 08:05
-
Jackichan8914.05.2022 03:43
-
Жанна64412.03.2021 15:12
-
lady19802605.01.2023 18:40
-
cccggg9327.05.2021 15:20
-
мамаеб22816.10.2021 09:37
-
tttyadoyan23530.07.2022 00:13