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.4 (49 votes)
Ảnh của Tommy Tran

Tommy Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Bình luận (0)

 

Add Comment

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.
1 + 19 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
Cài đặt ckfinder để upload hình với ckeditor

Cài đặt ckfinder để upload hình với ckeditor

CKFinder is a powerful and easy to use Ajax file manager for web browsers. Its simple interface makes it intuitive and quick to learn for all kinds of users, from advanced professionals to Internet beginners.

Recover Deleted files on Android Phone

Recover Deleted files on Android Phone

Most of the time it happens to all of us, when we accidentally delete a very important file from our Android Phone.

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.