Быыыстро В таблице приведены за и количество страниц найденных по ним сайтов в сегменте сети.
За Найдено сайтов (в тысячах)
ДОМ 50
ХИЖИНА 80
ЖИЛИЩЕ 100
ДОМ&ЖИЛИЩЕ 20
ХИЖИНА|ДОМ 110
ЖИЛИЩЕ&ХИЖИНА 30
ДОМ&ХИЖИНА&ЖИЛИЩЕ 5
Сколько страниц (в тысячах) будет найдено по за ДОМ|ХИЖИНА|ЖИЛИЩЕ?
268
488
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! procedure sumkoleven(a: array[,] of integer; var s,k: integer); begin var p: =a.rows.selectmany(x-> x).where(x-> x.iseven); s: =p.sum; k: =p.count end; procedure maxcoord(a: array[,] of integer; var imax,jmax: integer); begin (imax,jmax): =(0,0); for var i: =0 to a.rowcount-1 do for var j: =0 to a.colcount-1 do if a[i,j]> a[imax,jmax] then (imax,jmax): =(i,j) end; procedure zeroeven(a: array[,] of integer); begin for var i: =0 to a.rowcount-1 do for var j: =0 to a.colcount-1 do if a[i,j].iseven then a[i,j]: =0 end; procedure maxsumrow(a: array[,] of integer; var irow: integer); begin irow: =a.rows.select(x-> x.sum).toarray.indexmax; end; begin var n: =readinteger('количество строк в массиве: '); var m: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,-99,99); a.println(4); writeln(4*a.colcount*'-'); var sum,kol: integer; sumkoleven(a,sum,kol); writeln('s=',sum,', k=',kol); var im,jm: integer; maxcoord(a,im,jm); writeln('координаты максимума [',im+1,',',jm+1,']'); var b: =copy(a); zeroeven(b); b.println(4); writeln(4*b.colcount*'-'); maxsumrow(a,im); writeln('максимальная сумма у строки ',im+1) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] *** 23 94 26 40 -88 -29 88 -46 -98 64 -78 93 17 36 66 56 -52 -16 -7 -33 -63 -95 40 96 10 -30 79 -75 -47 83 30 -70 -37 -50 -80 18 -7 -43 68 -68 s=56, k=25 координаты максимума [3,8] 23 0 0 0 0 -29 0 0 0 0 0 93 17 0 0 0 0 0 -7 -33 -63 -95 0 0 0 0 79 -75 -47 83 0 0 -37 0 0 0 -7 -43 0 0 максимальная сумма у строки 2
Популярно: Информатика
-
mmmmm3027.04.2021 20:00
-
Шурочек18.06.2020 01:17
-
lohotrontupoy6517.10.2022 16:37
-
vladlena2419.10.2020 10:47
-
kgulina0116.08.2020 09:52
-
sorokovilya15.07.2022 16:42
-
PavelSol09.04.2023 20:11
-
esayanmamikon126.12.2021 15:58
-
IrinaErmolenko24.10.2021 07:33
-
радмир140230.11.2021 02:10