Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tùng Bùi

Viet chuong trình khai báo một mảng các số nguyên không âm gồm 7 phân tử và thực hiện các công việc sau 1 Nhập giá tự cho các phần tử của mảng 2 in các phần tử của mảng lên màn hình 3 Tính tổng các phần tử của mảng 4 Tính trung bình các giá trị của mảng 5 Tìm giá trị Min của mảng 6 sắp xếp các phần tử của mảng theo chiều giảm dần.

Phía sau một cô gái
6 tháng 4 2023 lúc 21:04

program PSMCG;

uses crt;

const

     size = 7;

var

     arr: array[1..size] of integer;

     i, sum, min, temp: integer;

     avg: real;

begin

     clrscr;

     writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');

     for i := 1 to size do

     begin

          readln(arr[i]);

     end;

     writeln('Cac phan tu trong day la: ');

     for i := 1 to size do

     begin

          write(arr[i], ' ');

     end;

     writeln();

     sum := 0;

     for i := 1 to size do

     begin

          sum := sum + arr[i];

     end;

     writeln('Tong cac phan tu la: ', sum);

     avg := sum / size;

     writeln('Trung binh cac phan tu la: ', avg:0:2);

     min := arr[1];

     for i := 2 to size do

     begin

          if(arr[i] < min) then

          begin

               min := arr[i];

          end;

     end;

     writeln('Gia tri nho nhat la: ', min);

     for i := 1 to size - 1 do

     begin

          for j := i + 1 to size do

          begin

               if(arr[i] < arr[j]) then

               begin

                    temp := arr[i];

                    arr[i] := arr[j];

                    arr[j] := temp;

               end;

          end;

     end;

     writeln('Cac phan tu da sap xep theo thu tu giam dan:');

     for i := 1 to size do

     begin

          write(arr[i], ' ');

     end;

     readln;

end.


Các câu hỏi tương tự
duyy
Xem chi tiết
hoho209
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Nguyễn Quỳnh Anhh
Xem chi tiết
Hoài Right
Xem chi tiết
LMHT_Tốc_chiến
Xem chi tiết
MINH NGỌC
Xem chi tiết
Thanh Thủy
Xem chi tiết