Дан двумерный массив размером найти мин.элемент найти количество элементов равных этому во всем масиве

161

317

Посмотреть ответы 2

Ответы на вопрос:

ImagineDragonsUA

Информатика

4,5(14 оценок)

Var i,j,k,min: integer; a: array[1..10,1..10] of integer; begin randomize; for i: =1 to 10 do for j: =1 to 10 do a[i,j]: =random(15)+1; min: =a[1,1]; for i: =1 to 10 do for j: =1 to 10 do if a[i,j]< min then min: =a[i,j]; for i: =1 to 10 do for j: =1 to 10 do if min=a[i,j] then k: =k+1; for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j]: 5); writeln; end; writeln('минимальный элемент=',min); writeln('кол-во равных элементов=',k); end.

roksanaatalan

Информатика

4,4(2 оценок)

1. 128*1024=131072 - объем в байтах 2. поскольку один символ в unicode кодируется двумя байтами, то 131072/2=65536. таким образом ответ: 65536 символов