1. var A:array[0..7,0..13] of integer; B:array[0..255] of integer; i,j,k:byte; s:integer; SR:real; begin randomize; s:=0; k:=0; for i:=0 to 7 do begin for j:=0 to 13 do begin A[i,j]:=random(20); write(A[i,j]:4); if A[i,j] mod 2<>0 then begin S:=S+A[i,j]; k:=k+1; end; end; writeln; end; SR:=S/k; k:=0; writeln; for i:=0 to 7 do for j:=0 to 13 do if (A[i,j] mod 2=0) and (A[i,j]>SR) then begin k:=k+1; B[k]:=A[i,j]; write(b[k]:4); end; end. 2. var A:array[0..9,0..9] of integer; B:array[0..255,0..1] of integer; i,j,k:byte; s,ss,MIN:integer; FLAG:boolean; begin randomize; s:=0; k:=0; for i:=0 to 9 do begin for j:=0 to 9 do begin A[i,j]:=random(20); write(A[i,j]:4); B[i,0]:=A[i,j]+B[i,0]; B[i,1]:=i; end; writeln; end; writeln; FLAG:=false; MIN:=10*20+1; for i:=0 to 9 do begin for j:=i to 9 do if MIN>B[j,0] then begin Min:=B[j,0]; k:=j; FLAG:=true; end; if FLAG then begin S:=B[i,0]; //замена SS:=B[i,1]; B[i,0]:=B[k,0]; B[i,1]:=B[k,1]; B[k,0]:=S; B[k,1]:=SS; FLAG:=false; MIN:=10*20+1; end; end; for i:=0 to 9 do begin writeln; for j:=0 to 9 do write(A[B[i,1],j]:4); end; end.
Program Uravnenie; uses Crt; var a,b,c,x,x1,x2 : real ; begin clrscr; writeln ( 'Введите a : ' ); readln ( a ); writeln ( 'Введите b : ' ); readln ( b ); writeln ( 'Введите c : '); readln ( c ); if ( sqr ( b ) - 4 * a * c ) < 0 then writeln ( ' Уравнение не имеет решения ' ) else begin if ( sqr ( b ) - 4 * a * c ) = 0 then begin x:= - b / ( 2 * a ); writeln( ' x = ', x : 8 : 2 ) end else begin x1:= ( - b + sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a ); x2:= ( - b - sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a ); writeln( ' x1 = ', x1 : 8 : 2, ' x2 = ', x2 : 8 : 2 ) end end.