type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
var A: array [1..N, 1..M] of integer; i, j, k: integer; s: real;
begin cls; k := 0; s := 0; randomize; for i := 1 to N do begin for j := 1 to M do begin A[i, j] := random(50) - 10; write(A[i, j]:6); s := s + A[i, j] //Сумма элементов end; writeln end; s := s / (N * M); //Среднее арифметическое (сумму делим на количество ВСЕХ чисел) writeln('Srednee ', s:0:3); for i := 1 to N do for j := 1 to M do if a[i, j] > s then k := k + 1; //Считаем элементы большие среднего writeln('Kolichestvo ', k) end.
