pascal
Uses crt;) Opisanie dannih)Var M:array[1..100,1..100]of integer;)Sum:real;)n,k,i,j,maxi:integer;)Min,max:longint;)BEGIN clrscr;) Vvod dannih)writeln(' Vvedite chislo strok i stolbcov ');)readln(k,n);) Zapolnenie matrici )writeln(' Vvedite elementi matrici ');)for i:=1 to n do)for j:=1 to k do)Readln(M[i,j]);)maxi:=1;)max:=-1000;)Min:=M[1,1];))Writeln;) Vivod matrici na ekran )Writeln(' Vi vveli matricu: ');)for i:=1 to n do)for j:=1 to k do)if j=k then)Writeln(M[i,j],' ') else)Write(M[i,j],' ');))Writeln;) Poisk minimalnih elementov v kazhdoi stroke i vibor bolshego iz nih )for i:=1 to n do)begin)for j:=1 to k do)if M[i,j]<Min then Min:=M[i,j];)Writeln(' Stroka ',i,' , Minimalnii element = ',Min);)if Min>max then)Begin) max:=Min;) maxi:=i;)End;))Min:=M[i+1,1];)End;)writeln(' Maksimalnii iz nih v stroke ',maxi,' i raven ',max);)readln;)END.
Прадд[30]:
Вам нравится