Thứ sáu, Ngày 21 Tháng 6 Năm 2019
Chào mừng năm mới Xuân Kỷ Hợi 2019!
JV color JV color JV color
Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Truy Cập Tin Nhanh
Giáo Dục Mầm Non - Tiều học: Công văn số 1219/SGDĐT-GDMNTH: V/v yêu cầu báo cáo kết quả tổ chức hoạt động hè 2019 - Thứ năm, 20 Tháng 6 2019 08:15
Giáo Dục Trung Học - Thường xuyên: Báo cáo số 127/BC-SGDĐT: V/v tổng kết năm học 2018-2019 đối với giáo dục thường xuyên - Monday, 17 Tháng 6 2019 15:32
Giáo Dục Trung Học - Thường xuyên: Công văn số 1169/SGDĐT-GDTrHTX: V/v Báo cáo thông tin giáo viên tiếng Anh tại đơn vị - Thứ ba, 11 Tháng 6 2019 15:37

Thông tin thi tuyển sinh, THPT Quốc gia 2019

----------------------------- 
TRA CỨU ĐIỂM THI TUYỂN SINH 10, THPT QUỐC GIA 2018: ========== xem tại đây... ==========
Hoặc tại địa chỉ: https://thisinh.thithptquocgia.edu.vn/

Văn bản tuyển sinh, thi THPT Quốc gia năm 2019: xem tại đây...

Danh sách Quy định mã Tỉnh, Quận, Huyện, Khu vực tuyển sinh: đang cập nhật...

=========== THÔNG BÁO ============

Thông báo:
- Triển khai báo cáo thống kê giáo dục kỳ cuối năm học 2018-2019 (Khẩn): Xem chi tiết ... new
- Giới thiệu sản phẩm, dịch vụ phần mềm CNTT tiêu biểu của Việt Nam năm 2019: 717/STTTT-VTCNTT - http://danhhieusaokhue.vn/
- Đề nghị các đơn vị rà soát cập báo cáo số liệu giáo dục đầu năm (EMIS) theo công văn 670/SGDĐT-TCCB ngày 03/04/2019.
 - Danh sách, địa điểm tổ chức thi và cấp Chứng chỉ Ứng dụng Công nghệ thông tin Cơ bản tại tỉnh Bà Rịa-Vũng Tàu tải về...

Thông tin Bổ nhiệm công chức tháng 01/2019:
1. Bổ nhiệm ông Nguyễn Đức Danh giữ chức vụ Hiệu trưởng trường THPT Trần Phú, thời gian giữ chức vụ kể từ ngày 16/02/2019 (Quyết định số 111/QĐ-SGDĐT ngày 21/01/2019).
2. Bổ nhiệm lại ông Đinh Ngọc Đức giữ chức vụ Hiệu trưởng trường THPT Trần Hưng Đạo, thời gian giữ chức vụ kể từ ngày 21/11/2018 (Quyết định số 110/QĐ-SGDĐT ngày 21/01/2019)

Tài liệu hướng dẫn: 
- Bài thể dục Buổi sáng: tải về ...
- Bài thể dục Giữa giờ: tải về ...
- Bài võ thuật cổ truyền: tải về ...
 
Phần mềm dùng để họp trực tuyến Trueconf: Download
Phiên bản dùng cho thiết bị di động: Android  hoặc  IOS
 
Hướng dẫn quy trình sử dụng Eoffice - Văn phòng điện tử dành cho ngành Giáo dục và Đào tạo tỉnh Bà Rịa - Vũng Tàu.
Tải về ... 
Đề nghị cài lại Eoffice phiên bản 6.1.23. Download
 

BKAV phiên bản client: Download

TIN TUYỂN DỤNG VIÊN CHỨC GIÁO DỤC 2018-2019

newTrang thông tin tuyển dụng:

Văn bản đã ban hành:
- Số: 2350/TB-SGDĐT, ngày 18 tháng 12 năm 2018 Thông báo V/v tuyển dụng viên chức các đơn vị trực thuộc Sở Giáo dục và Đào tạo năm học 2018-2019

DỊCH VỤ CÔNG TRỰC TUYẾN

Dichvucong

DIỄN ĐÀN: DÂN HỎI - SỞ GDĐT TRẢ LỜI

HoiDap2017

DỰ THẢO LUẬT CẦN XIN Ý KIẾN CÔNG DÂN

ykien

QUẢN LÝ NHÂN SỰ PMIS

pmis Tải bộ cài đặt PMIS: tại đây ...

THÔNG BÁO TUYỂN SINH NĂM HỌC 2019-2020

BVU-tuyen-sinh2018


cdspbrvt2019V2


UKA_Link_BRMOET_2

Mô hình trường học mới Việt Nam

mohinhmoi

Tài liệu lớp 6 năm học 2015-2016: tải về tại đây ...
Tài liệu hướng dẫn dạy của của giáo viên: tải về ...
Tài liệu tham khảo về các mức đánh giá kiểm tra các bộ môn: tải về ...

CÔNG ĐOÀN NGÀNH

CDN2015

THÔNG TIN KHEN THƯỞNG - XỬ PHẠT

- Quyết định số 1507/QĐ-BGDĐT: về việc tặng bằng khen
- Quyết định số 715/QĐ-SGDĐT: về việc tặng Giấy khen cho các trường THPT đạt kết quả cao trong kỳ thi tuyển sinh Đại học năm 2014
- Quyết định số 1647/QĐ-UBND: về việc tặng bằng khen
- Quyết định số 1438/QĐ-UBND: về việc tặng bằng khen
- Quyết định số 1624/QĐ-UBND: về việc tăng cờ thi đua và danh hiệu Chiến sĩ thi đua cấp tỉnh

HỘP THƯ GÓP Ý

Sở Giáo dục và Đào tạo tỉnh Bà Rịa – Vũng Tàu hân hạnh được tiếp nhận những ý kiến đóng góp của quý Thầy cô giáo, quý phụ huynh học sinh và các em học sinh về lĩnh vực Giáo dục và Đào tạo của tỉnh Bà Rịa – Vũng Tàu với mục đích làm cho ngành giáo dục tỉnh nhà ngày càng tốt hơn.
Nội dung góp ý xin mail về địa chỉ:
Xin trân trọng cám ơn!

Văn bản về xử phạt vi phạm hành chính trong lĩnh vực giáo dục:
Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Web liên kết

  • Tin mới

  • Tin xem nhiều

Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Góc học tập

  • Lập trình

  • Báo chí

Thông tin liên hệ

cqmoi02
Sở Giáo Dục & Đào Tạo tỉnh Bà Rịa - Vũng Tàu
Địa chỉ: Khối B3 Khu Trung tâm hành chính-chính trị tỉnh; số 198 đường Bạch Đằng, phường Phước Trung, Thành phố Bà Rịa, tỉnh Bà Rịa-Vũng Tàu
Quản trị Website: Phòng TCCB&CNTT-02543541500

Thống kê truy cập

mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHôm nay61583
mod_vvisit_counterHôm qua23935
mod_vvisit_counterTuần này118579
mod_vvisit_counterTuần trước127852
mod_vvisit_counterTháng này406944
mod_vvisit_counterTháng trước435864
mod_vvisit_counterTất cả48737628
Hiện có 1536 khách Trực tuyến
Home TÀI NGUYÊN Công Nghệ Thông Tin Lập Trình Bài toán: Tích lớn nhất trong 3 số

Bài toán: Tích lớn nhất trong 3 số

In

tinhoche11_04

Bài toán: Tích lớn nhất trong 3 số                              Mã file: MULMAX3

Cho một dãy số nguyên a1, a2,…, an.

Yêu cầu: Hãy chọn ra 3 số trong dãy trên sao cho tích của chúng là lớn nhất.

 

Dữ liệu vào từ file ‘MULMAX3.INP’

  • Dòng đầu là số nguyên dương n.
  • Dòng thứ 2 chứa dãy số a1, a2,…, an.

Kết quả ghi vào file ‘MULMAX3.OUT’ ghi tích lớn nhất tìm được.

Giới hạn kỹ thuật:

  • n≤1000000;
  • -10000≤ai≤10000 với i=1, 2, … n

Ví dụ:

MULMAX3.INP

MULMAX3.OUT

6

7 -2 4 -1 6 5

210

Lời giải tham khảo:

Lời giải 1:

const fi='MULMAX3.inp';
      fo='MULMAX3.out';
var f:text;
    a:array[1..10000] of int64;
    n,max:int64;
procedure nhap;
      var i:longint;
        begin
                assign(f,fi);
                reset(f);
                readln(f,n);
                for i:=1 to n do
                    readln(f,a[i]);
                close(f);
        end;

procedure qsort(l,r:integer);
        var i,j,x,y: integer;
begin

                i:=l;
                j:=r;
        x:=a[(l+r) div 2];
        repeat
                while a[i]<x do i:=i+1;
                while a[j]>x do j:=j-1;
                if i<=j then
                  begin
                        y:=a[i];
                        a[i]:=a[j];
                        a[j]:=y;
                        i:=i+1;
                        j:=j-1;
                  end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);

end;
{chua toi uu, dang thu}
procedure xuli;
      var   kq:qword;
begin
          qsort(1,n);
          max:=a[n]*a[n-1]*a[n-2];
          kq:=a[1]*a[2]*a[n];
          if kq>max then max:=kq;

end;

procedure xuat;

begin
        assign(f,fo);
        rewrite(f);
        write(f,max);
        close(f);
end;

{chuong trinh chinh}
begin
        nhap;
        xuli;
        xuat;
end.

Lời giải 2:

const fi='mulmax3.inp';
      fo='mulmax3.out';
var a:array[1..1000000] of longint;
    n:longint;
    kq:qword;
    f:text;
procedure docfile;
var i:integer;
begin
    assign(f,fi);reset(f);
    readln(f,n);
    for i:=1 to n do
        read(f,a[i]);
    close(f);
end;

procedure ghifile;
begin
    assign(f,fo);rewrite(f);
    writeln(f,kq);
    close(f);
end;

procedure trao(var x,y:longint);
var tmp:longint;
begin
    tmp:=x;
    x:=y;
    y:=tmp;
end;

procedure quicksort(d,c:longint);
var i,j,x:longint;
begin
    i:=d;
    j:=c;
    x:=a[(i+j) div 2];
    repeat
        while a[i]<x do inc(i);
        while a[j]>x do dec(j);
        if i<=j then
            begin
                trao(a[i],a[j]);
                inc(i);dec(j);
            end;
    until i>j;
    if i<c then quicksort(i,c);
    if d<j then quicksort(d,j);
end;

procedure xuly;
begin
    quicksort(1,n);
    kq:=int64(a[n])*int64(a[n-1])*int64(a[n-2]);
    if kq<int64(a[1])*int64(a[2])*int64(a[n]) then
        kq:=int64(a[1])*int64(a[2])*int64(a[n]);
end;

begin
    docfile;
    xuly;
    ghifile;
end.

(Chương trình tập huấn kỹ năng lập trình và công tác bồi dưỡng HSG dành cho GV THCS - hè 2011)