1. считалось, что носить большие и красивые манжеты на рубашках у средневековых студентов значило прослыть трусом. почему?

program princess; uses crt; var  m: integer; begin  writeln('***************************************');   writeln('*              вас                 *');   writeln('*      программа проверки принцесс          *');   writeln('*                                                                        *');   writeln('*          сейчас                             *');   writeln('***************************************');   writeln('1. постелите постель для девушки');   writeln('2. подложите горошину');   writeln('3. дождитесь ');   writeln('4. разбудите девушку');   writeln('5. спросите: "как вам спалось? " ');   writeln('6. введите в систему ответ девушки: ');   writeln('    0 - "плохо, совсем не сомкнула " ');   writeln('    1 - "отлично выспалась" ');   readln(m);   writeln('***************************************');   writeln('*                                                        *');   if m=0 then  writeln('* эта девушка - настоящая принцесса!   *')  else   writeln('*  увы! эта девушка - не принцесса!     *');   writeln('***************************************'); end.

uses crt; var i,j,min,n,m : integer; s: real; a: array[1..100,1..100] of integer; b: array[1..100] of integer; beginreadln(n,m); s: =0; for i: =1 to n do beginfor j: =1 to m doa[i,j]: =random(25)+1; end;

for i: =1 to n do begin writeln; for j: =1 to m dowrite(a[i,j],' ');

end; writeln; writeln('ìèíèìàëüíûå ýëåìåíòû ñòðîê: '); for i: =1 to n do begin min: =a[i,j]; for j: =2 to m do begin if min> a[i,j] then begin min: =a[i,j]; end; end; s: =s+min;

write(min,' '); end; writeln('avg = ',(s/n): 0: 1); end.