1)информация в окне папки может быть просмотренная в виде; а)списка б) файла и папки в)значков г)таблицы 2меню файл программы word содержит пункты; а)создать б)закрыть в)очистить г)сохранить как д)удалить
258
266
Ответы на вопрос:
Program example; const r = 20; type tm = array[1..r, 1..r]of integer; function getmax(var a: tm; n: integer; m: integer): integer; // возвращает значение максимального элемента в строке n массива а var j, max: integer; begin max : = -32767; for j : = 1 to m do if max < a[n, j] then max : = a[n, j]; getmax : = max end; function summax(var a: tm; n: integer; m: integer; p: integer; q: integer): integer; // проверяет условие n< =r, m< =r, при нарушении возвращает значение -32768 // полагает, что массив [1..n,1..m] размещен внутри массива a[1..r,1..r] // заполняет выбранную область массива а случайными числами из диапазона (p; q) // возвращает значение суммы максимальных элементов четных строк выбранной области. var i, j, s: integer; begin if (n > r) or (m > r) then summax : = -32767 else begin randomize; for i : = 1 to n do for j : = 1 to m do a[i, j] : = random(p + q) - p; s : = 0; i : = 2; while i < = n do begin s : = s + getmax(a, i, m); i : = i + 2 end; summax : = s end end; const n1 = 5; m1 = 3; n2 = 4; m2 = 4; n3 = 3; m3 = 7; var i, j, sum: integer; a: tm; begin sum : = summax(a, n1, m1, -30, 60); writeln('массив a[1..', m1, ',1..', n1, ']'); for i : = 1 to n1 do begin for j : = 1 to m1 do write(a[i, j]: 4); writeln; end; writeln('сумма максимумов четных строк массива a равна ', sum); sum : = summax(a, n2, m2, 0, 90); writeln('массив b[1..', m2, ',1..', n2, ']'); for i : = 1 to n2 do begin for j : = 1 to m2 do write(a[i, j]: 4); writeln; end; writeln('сумма максимумов четных строк массива b равна ', sum); sum : = summax(a, n3, m3, 20, 50); writeln('массив c[1..', m3, ',1..', n3, ']'); for i : = 1 to n3 do begin for j : = 1 to m3 do write(a[i, j]: 4); writeln; end; writeln('сумма максимумов четных строк массива c равна ', sum); end. контрольный пример: массив a[1..3,1..5] 47 55 48 51 45 49 32 47 53 54 31 33 56 50 36 сумма максимумов четных строк массива a равна 105 массив b[1..4,1..4] 85 49 72 13 66 57 22 54 67 63 76 53 79 2 38 88 сумма максимумов четных строк массива b равна 154 массив c[1..7,1..3] 46 18 36 -10 31 24 -3 22 32 29 39 21 41 -19 9 48 47 -1 4 29 11 сумма максимумов четных строк массива c равна 41
Популярно: Информатика
-
Новичок22111214.05.2023 00:24
-
jockman01.12.2021 04:38
-
annvs114.03.2020 00:46
-
sirius83018.02.2020 02:11
-
Yutik22.05.2022 00:30
-
007sergey08.05.2022 23:35
-
Saetre200303.02.2023 17:47
-
duyquhuseynli24.12.2021 01:22
-
littleeeprincess15.02.2020 09:32
-
gulmamedovaxayald26.10.2021 01:31