Const n = 3; m = 4; var a: array[1..n,1..m] of integer; i,j,min,ns: integer; begin {заполнение массива} writeln('исходный массив: '); for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' '); end; writeln end; {поиск минимального элемента} min: =a[1,1]; for i: = 1 to n do for j: = 1 to m do if a[i,j]< min then begin min: =a[i,j]; ns: =i; end; writeln('минимальный элемент в строке №',ns); end.
zotti
02.05.2020
Ялюблю и уважаю поэзию. даже сама (сам) пишу стихи. почему мне нравится поэзия? ну так сразу и не сказать. когда я открываю томик стихотворений пушкина или есенина все проблемы уходят на второй план. сразу приходить такая легкость, безмятежность (проверь по словарю это слово ). и все проблемы сразу решаемы . мое любимое стихотворение "жди меня " к. симонова. когда его читаешь слезы текут ручьем от того, как автор передал всю боль, весь страх того времени. лично я вам советую почаще читать. это увлекательно и полезно. как-то так )
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Как определяется информационный объём текста при использовании алфавитного подхода?
n(информационный объём)= 2i(2 в степени "и")