1. задать массив f (m, n), из 4 строк и 5 столбцов, элементы заданы из диапазона [-20; 20] случайным образом • найти количество положительных и кратных 7; • найти среднее арифметическое отрицательных; • найти min элемент и его индексы; • найти max элемент среди отрицательных и его индексы.
137
148
Ответы на вопрос:
//pascalabc.net//версия 3.3, сборка 1611 (06.01.2018)begin var a: =matrrandom(4,5,-20,20).println; var c: =a.elementsbyrow; println('кол-во положительных -> ',c.where(t-> t> 0).count); println('кол-во кратных 7 -> ',c.where(t-> t mod 7=0).count); println('сред. арифм. отрицат. -> ',c.where(t-> t< 0).average); var b: =a.elementswithindexes.minby(t-> t[0]); writeln('минимальный -> ', b[0],'[',b[1]+1,',',b[2]+1,']'); b: =a.elementswithindexes.where(t-> t[0]< 0).maxby(t-> t[0]); writeln('максимальный отриц. -> ', b[0],'[',b[1]+1,',',b[2]+1,']'); end.пример: -10 6 12 7 4 -8 -4 3 -1 6 9 -2 16 19 -18 18 4 -3 12 -8кол-во положительных -> 12 кол-во кратных 7 -> 1 сред. арифм. отрицат. -> -6.75 минимальный -> -18[3,5]максимальный отриц. -> -1[2,4]
Const mm=50; { максимально возможное кол-во строк } nn=50; { максимально возможное кол-во столбцов } var f: array[1..mm,1..nn] of integer; i,j,m,n,k,s: integer; begin randomize; write('количество строк в массиве: '); read(m); write('количество столбцов в массиве: '); read(n); writeln('*** исходный массив ***'); for i: =1 to m do begin for j: =1 to n do begin f[i,j]: =random(41)-20; { [-20; 20] } write(f[i,j]: 4) end; writeln end; write('количество положительных элементов, кратных 7: '); k: =0; for i: =1 to m do for j: =1 to n do if (f[i,j]> 0) and (f[i,j] mod 7=0) then k: =k+1; writeln(k); write('среднее арифметическое отрицательных элементов: '); k: =0; s: =0; for i: =1 to m do for j: =1 to n do if f[i,j]< 0 then begin k: =k+1; s: =s+f[i,j] end; if k> 0 then writeln(s/k: 0: 5) else writeln(0); write('минимальный элемент равен '); k: =100; for i: =1 to m do for j: =1 to n do if f[i,j]< k then k: =f[i,j]; write(k,', индексы: '); for i: =1 to m do for j: =1 to n do if f[i,j]=k then write(' [',i,',',j,']'); writeln; write('максимальный элемент среди отрицательных равен '); k: =-100; for i: =1 to m do for j: =1 to n do if (f[i,j]> k) and (f[i,j]< 0) then k: =f[i,j]; write(k,', индексы: '); for i: =1 to m do for j: =1 to n do if f[i,j]=k then write(' [',i,',',j,']'); writeln; end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив *** -4 11 -5 -12 7 16 -10 6 8 -3 -12 -16 15 2 -2 -6 16 8 18 0 -10 8 18 7 17 7 -14 -4 -1 -8 13 -1 3 -18 16 -10 4 -17 19 -18 количество положительных элементов, кратных 7: 3 среднее арифметическое отрицательных элементов: -9.00000 минимальный элемент равен -18, индексы: [5,2] [5,8] максимальный элемент среди отрицательных равен -1, индексы: [4,5] [4,8]
каждый цвет может иметь 4 значения 2^2
если базовых цвета 3(rgb) то всего получится 4*4*4=64 цвета
Популярно: Информатика
-
амон228803.11.2022 19:00
-
АртёмПлотников18.08.2020 16:12
-
Ольчик07119627.03.2021 22:15
-
ailonkilo30.01.2020 12:32
-
skachkov156214.02.2023 14:34
-
костя66525.02.2021 07:50
-
оргеотепок08.01.2021 14:00
-
Venera87919.11.2022 15:20
-
innapuna805.05.2023 05:22
-
ulchik457214.09.2021 12:44