Ответы на вопрос:
Uses crt; const nmax=100; var a1,a2: array[1..nmax] of integer; n,i,b,k,s: integer; begin randomize; clrscr; repeat write('введите размер массива n (n in [1..',nmax,']): '); readln(n); write('введите число b (0< b< 100): '); readln(b); until (n in [1..nmax]) and (b in [1..99]); writeln('массив a1'); for i: =1 to n do begin a1[i]: =random(99); write(a1[i]: 4); if a1[i]> b then begin inc(k); a2[k]: =i; s: =s+a1[i]; end; end; writeln; writeln('среднее элеметов, больших b = ',s/k: 0: 2); writeln('массив a2: '); for i: =1 to k do write(a2[i]: 4); readln; end.
Пишу на qbasic cls input n массив создан и заполнен for i = 1 to k (кол-во элементов массива) if i < n then a=a+i b=b+1 end if next i c=a/b print c
Для визуального контроля за процессом обработки ч/б бромосеребряной и йодосеребряной фотобумаг используется так наз-е "неактичное" освещение. для его получения используются осветительные приборы с красным светофильтром. это связано с тем, что ч/б фотобумаги слабочувствительны к красному свету. однако, если оставить лист бумаги при таком освещении на часок, то он всё равно будет засвечен. появится т. н. "вуаль". а вот жёлтый светофильтр используется исключительно при цветной печати. правда, толку от него при этом немного. потому что получаемый при такого прибора световой поток настолько мал, что разве что определять своё положение в пространстве. поэтому раньше, при ручной печати цветных фотографий, фотографы предпочитали работать в полной темноте. плёнка, кстати, даже чёрно - белая, при красном фонаре однозначно будет засвечена.
Популярно: Информатика
-
mskobetsnata12.11.2022 22:17
-
66664228.02.2021 14:56
-
lotostp06.11.2020 06:23
-
alskyuq21.01.2022 09:06
-
katenok170602.09.2022 17:10
-
Adidasler0504.07.2022 00:27
-
IrinaCipher26.03.2022 16:19
-
sport2218.11.2022 16:30
-
270320009635824625.03.2023 23:11
-
12344312328.04.2022 13:20