4.5. Бірінші сөреде 16 кітап, екінші сөредегі кітаптар саны бірінші сөредегі кітаптар санының 1/2 - бөлігін құрайды. Үшінші сөредегі кітаптар саны екінші сөредегі кітаптар санынан 2 есе артық. Сөрелерде барлығы неше кітап бар?
150
209
Ответы на вопрос:
Var i,j,n,k: integer; a,b: array[1..20]of integer; begin writeln('введите n'); readln(n); for i: =1 to n do begin readln(a[i]); b[i]: =a[i]; end; for i: =1 to n do for j: =1 to n do if b[i]> b[j] then begin k: =b[i]; b[i]: =b[j]; b[j]: =k end; for i: =1 to n do if a[i]=b[2] then k: =i; writeln('k=',k); end.
Популярно: Информатика
-
Грамотейка115.05.2022 08:48
-
togrul65424.03.2021 16:00
-
Annpi02.02.2022 00:28
-
sashamur2005108.07.2020 07:58
-
mumin201303.12.2021 12:32
-
SmartPocan14.02.2021 19:10
-
nataliamoroz83029.12.2022 10:38
-
Помогитепж11111111112.06.2020 14:03
-
EfremovMk24.11.2020 19:37
-
рамиля2806.08.2022 19:56