Var min,max,i: byte; kontrol: boolean; rez: real; a: array[1..9] of byte; begin min:=6; max:=1; rez:=0; kontrol:=true; for i:=1 to 9 do begin write ('введите ',i,'-ю оценку: '); readln (a[i]); if (a[i]<1) or (a[i]>6) then kontrol:=false; if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; rez:=rez+a[i] end; rez:=(rez-min-max)/7; if kontrol=true then writeln ('Зачетная оценка: ',rez:6:3) else writeln ('Введены некорректные данные') end.
Const m=5; n=6; type arr=array[1..m,1..n] of integer; procedure p1(var a:arr); var i,j:integer; begin for i:=1 to m do for j:=1 to n do a[i,j]:=random(51); end; procedure p2(var a:arr); var i,j:integer; begin for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end; procedure p3(var a:arr); var i,j,s,max,min,jmax,jmin,c:integer; begin max:=0; min:=m*50*50; for j:=1 to n do begin s:=0; for i:=1 to m do s:=s+a[i,j]*a[i,j]; if s>max then begin max:=s; jmax:=j; end; if s<min then begin min:=s; jmin:=j; end; end; writeln('jmax = ',jmax,' jmin = ',jmin); for i:=1 to m do begin c:=a[i,jmax]; a[i,jmax]:=a[i,jmin]; a[i,jmin]:=c; end; end;
var b:arr; begin Randomize; p1(b); writeln('Исходный массив:'); p2(b); p3(b); writeln('Полученный массив:'); p2(b); end.
