Дан двумерный массив целых чисел. определить сколько раз встречается в каждой строке минимальный элемент, вывести сообщения. (паскаль)

КОД в Turbo Pascal

USES CRT;
VAR A:array[1..5,1..5] of integer;   
           i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize; 
{заполняем массив случайными числами от 0 до 10}
for i:=1 to 5 do   
   for j:=1 to 5 do     
   A[i,j]:=random(10); 

{Выводим массив на экран} 
  for i:=1 to 5 do   
    begin   
      for j:=1 to 5 do     
         Write(A[i,j]:2, '   ');   
    Writeln;   
    end;

min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}   
 
{Ищем минимальный элемент в массиве} 
for i:=1 to 5 do     
   for j:=1 to 5 do     
       if A[i,j]<min then min:=A[i,j];

Writeln('Минимальный элемент в данном массиве = ',min);

{Обнуляем счетчик} 
s:=0;

{Считаем сколько минимальных элементов в каждой строке и выводим на экран}

for i:=1 to 5 do   
   begin     
      for j:=1 to 5 do       
         if A[i,j]=min then s:=s+1;     
      Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз');                  s:=0;   
end;

READLN;
END.

Вы должны это знать:

·         При регистрации на сайтах, старайтесь не указывать личную информацию, т.к. она может быть доступна незнакомым людям. Так же, не рекомендуется размещать свою фотографию, давая, тем самым, представление о том, как вы выглядите, посторонним людям.

·         Используйте веб-камеру только при общении с друзьями. Проследите, чтобы посторонние люди не имели возможности видеть ваш разговор, т.к. он может быть записан.

·         Нежелательные письма от незнакомых людей называются «Спам». Если вы получили такое письмо, не отвечайте на него. В случае, если Вы ответите на подобное письмо, отправитель будет знать, что вы пользуетесь своим электронным почтовым ящиком и будет продолжать посылась вам спам.

·         Если вам пришло сообщение с незнакомого адреса, его лучше не открывать. Подобные письма могут содержать вирусы.

·         Если вам приходят письма с неприятным и оскорбляющим вас содержанием, если кто-то ведет себя в вашем отношении неподобающим образом, сообщите об этом

·         Если вас кто-то расстроил или обидел, расскажите все взрослому.

Объяснение:

Семантическая сеть родственных связей Для семантических сетей отношения имеют особо важное значение, поскольку образуют базовую структуру для организации знаний. Знания, заданные без учета отношений, превращаются просто в коллекцию несвязанных фактов. Только при определении отношений, знания приобретают вид связанной структуры, исследование которой позволяет логическим путем создавать другие знания. На основании приведенного примера, можно сделать вывод, что Анна и Борис - бабушка и дедушка Ивана, несмотря на то, что на рисунке не присутствует явная связь, обозначенный как «внук». Семантические сети иногда называют ассоциативными сетями, так узлы таких сетей связаны, то есть ассоциированные между собой. В научных исследованиях Квиллиана, человеческая память от начала моделировалась как ассоциативная сеть, в которой понятия были представлены в виде узлов, а связи показывали, как эти понятия сочетаются друг с другом. Согласно указанному моделью, если происходит стимуляция одного узла, как в результате чтения слов в предложении, то идет активизация связей этого узла с другими узлами. В дальнейшем эта активность распространяется по сети. Как только узел получает достаточное активизацию, в сознательном уме возникает концепция, представленная этим узлом. Например, известно, что человек знает тысячи слов, но в процессе чтения предложения, в ее сознании отражаются только те слова, которые оно читает. Как показала практика, во многих представления знаний, особенно полезным является применение отношений одинаковых типов. Поэтому, при построении семантических сетей для представления знаний в различных предметных областях, вместо того, чтобы каждый раз определять новые отношения, принято использовать именно стандартизированные типы.