Viết phương trình pascal tìm số tự nguyên lớn nhất và in ra màn hình

Viết phương trình pascal tìm số tự nguyên lớn nhất và in ra màn hình

Viết phương trình pascal thực hiện các chương trình sau 

  • Nhập n số nguyên từ bàn phím
  • In ra màn hình tổng,tích,tb các số tự nhiên vừa nhập 
  • In ra màn hình các số tự nhiên vừa nhập đc là số chẵn 
  • In ra màn hình các số tự nhiên vừa nhập đc là số lẻ
  • In ra màn hình số tự nhiên lớn nhất và nhỏ nhất 

Giải bài tìm số nguyên lớn nhất, các bài còn lại các bạn tự giải

Program <chuongtrinh>

    var a:array[1..1000000] of integer;
    
    max,n,i:integer;
    
    begin
        
        write('nhap n :');
        
        read(n);
        
        for i:=1 to n do
        
        begin
                write('a[',i,']=');
                read(a[i]);
        end;
        
        max:=a[1];
        
        for i:=1 to n do
        
        if max<a[i] then max:=a[i];
        
        write('So lon nhat la: ',max);

    end.
Bạn thấy bài viết này như thế nào?: 
Average: 8 (53 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Bước 3: Widening Your Net of team Drupal

Bước 3: Widening Your Net of team Drupal

Eric Gaffen, Global Manager, Talent Acquisition at Acquia, is constantly getting requests for new hires from the leadership at Acquia. His previous company grew from 1600 to 3000 in six years, and from that experience, Eric knows larger companies have a very standardized approach to job descriptions which match compensation and evaluation. Things are quite different here. 

Những “bí ẩn” về cô bạn gái của tỉ phú Facebook

Những “bí ẩn” về cô bạn gái của tỉ phú Facebook

Vì sao trái tim của một tỉ phú trẻ, tài năng, nổi tiếng như Zuckerberg lại bị tan chảy bởi một cô gái có nhan sắc bình thường, không sở hữu thân hình như một siêu mẫu...

Candy Crush - ứng dụng hot nhất trên iPhone năm 2013

Candy Crush - ứng dụng hot nhất trên iPhone năm 2013

Apple đã công bố những chương trình miễn phí được tải nhiều nhất trên hệ điều hành iOS và nhiều trong số đó là các ứng dụng rất quen thuộc với người sử dụng tại Việt Nam.

Công ty diệt chuột T&C

 

Diet con trung