Сколько проверок выполнит алгоритм двоичного поиска, прежде чем найти элемент со значением 8 в следующем списке?
[1, 3, 6, 7, 8, 10, 15, 20]
138
260
Ответы на вопрос:
{12. дан массив а(3*4). найти сумму первых отрицательных элементов в каждом столбце.}uses crt; const n=3; m=4; var a: array [1..n,1..m] of real; x,y: integer; min,sum: real; begin sum: =0; for x: =1 to n do begin for y: =1 to m do begin a[x,y]: =random(10)-5; write(a[x,y]: 3: 0); end; writeln; end; writeln; for y: =1 to m do begin min: =0; for x: =n downto 1 do if a[x,y]< 0 then min: =a[x,y]; sum: =sum+min; end; writeln; writeln('сумма первых отрицательных элементов в каждом столбце: ',sum); end.{ 13. даны два массива а(3*3) и в(3*3). вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}uses crt; const n=3; var a,b: array [1..n,1..n] of integer; x,y,sum1,sum2: integer; begin sum1: =0; sum2: =0; for x: =1 to n do begin for y: =1 to n do begin a[x,y]: =random(10); if x=y then sum1: =sum1+a[x,y]; write(a[x,y]: 3); end; writeln; end; writeln; for x: =1 to n do begin for y: =1 to n do begin b[x,y]: =random(10); if x=y then sum2: =sum2+b[x,y]; write(b[x,y]: 3); end; writeln; end; if sum1< > sum2 then begin writeln('сумма элементов главной диагонали меньше в массиве: '); for x: =1 to n do begin for y: =1 to n do if sum1> sum2 then write(b[x,y]: 3) else write(a[x,y]: 3); writeln; end; end; if sum1=sum2 then writeln('сумма элементов главной диагонали одинакова'); end.{ 17.дан массив а(3*4). заменить все отрицательные элементы на противоположные.} uses crt; const n=3; m=4; var a: array [1..n,1..m] of real; x,y: integer; begin for x: =1 to n do begin for y: =1 to n do begin a[x,y]: =random(10)-5; write(a[x,y]: 3: 0); if a[x,y]< 0 then a[x,y]: =-a[x,y]; end; writeln; end; writeln; for x: =1 to n do begin for y: =1 to n do write(a[x,y]: 3: 0); writeln; end; end.
Популярно: Информатика
-
Tigeriza19.10.2020 16:24
-
pollyyyyyyyyyyy17.01.2023 18:34
-
banni1111.01.2021 04:14
-
lisi4ka22866631.05.2021 02:12
-
kamakina03.05.2022 15:47
-
hollok18.01.2021 11:31
-
МАМБЭТ07.01.2023 01:59
-
Альба29427.04.2023 18:37
-
global3452309.10.2020 15:17
-
BTSExo117.11.2022 07:48