Информатика 30
(в первом вопросе нужно записать по типу: a& b, a^b и тд)
122
398
Ответы на вопрос:
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.
Популярно: Информатика
-
супермарио328.05.2022 08:47
-
KINGMe24.06.2023 06:35
-
Пикантные20.07.2021 19:38
-
kawmod27.05.2021 06:09
-
Вико123429.05.2021 15:44
-
sasha22811122826.01.2023 10:56
-
vikysikrusinova11.02.2020 09:31
-
alinayusupova30525.10.2022 04:46
-
smolich26.01.2023 21:44
-
chelsi0910.09.2021 18:07