Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640×256 и палитрой из 16777216
164
316
Ответы на вопрос:
program alexander1; uses crt; const n = 10; var a: array [1..n] of real; i,k: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); randomize; {ввод чисел} for i: =1 to n do begin a[i]: = random(101)-50; write(a[i]: 7: 2,' '); end; writeln('числа, которые больше своего правого соседа: '); k: =0; for i: =1 to n-1 do begin if a[i]> a[i+1] then begin k: =k+1; writeln(i,'-е число: ',a[i],'> ',a[i+1]); end; end; writeln('всего ',k,' таких чисел'); end.
Популярно: Информатика
-
Matveu33123.11.2020 15:47
-
йцуячс210.04.2020 01:26
-
sasha2197416.03.2020 17:52
-
Виилллии09.06.2022 15:41
-
anna1834113.07.2022 02:50
-
01mrfrost10p0cb3m27.01.2023 18:27
-
Chika20061607.05.2023 22:03
-
Admiralchik2918.07.2021 08:19
-
vazirasharipovа24.09.2022 12:27
-
d2e0n0i5s14.01.2020 12:10