Viết chương trình nhập mã A xắp xếp (tăng dần giảm dần) tính trung bình,xuất số chẳn số lẻ,số lớn nhất số bé nhất,suất theo chiều ngược lại

Phương Mai Hỏi từ APP VIETJACK

· 06:10 22/04/2023

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

3 năm trước

program BaiTapA;

uses crt;

var a: array[1..100] of integer;

n, i, j, temp, tong, demchan, demle, max, min: integer;

tb: real;

begin

clrscr;

write('Nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ', i, ': ');

readln(a[i]);

end;

// Sap xep mang tang dan

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i] > a[j] then

begin temp := a[i];

a[i] := a[j];

a[j] := temp;

end;

// Tinh trung binh tong

:= 0;

for i:=1 to n do

tong := tong + a[i];

tb := tong / n; /

/ Dem

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?