Viết chương trình nhập vào một dãy số nguyên có n phần tử.In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách in ra màn hình

minmin1713

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

duongquach.2108

program ct;

uses crt;

var i,n,Max,Min,s:integer;tbc:real;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Max:=A[1]; Min:=A[1];

for i:=2 to n do

begin

if Max<A[i] then Max:=A[i];

if Min>A[i] then Min:=A[i];

end;

writeln('gia tri lon nhat la',Max);

writeln('gia tri nho nhat la',Min);

s:=0;

for i:=1 to n do

begin

s:=s+A[i];

tbc:=s/n;

end;

writeln('trung binh cong la:',tbc:2:4);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

anhvu200376

Program JDI;
uses crt;
var a:array[1..100] of longint;
n,i,min,max,tong:longint;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('a[',i,']: ');readln(a[i]);
tong:=a[i]+tong;
end;
min:=a[1];
max:=a[1];
For i:=2 to n do
Begin
If min>a[i] then min:=a[i];
If max<a[i] then max:=a[i];
end;
writeln('Min la: ',min);
writeln('Max la: ',max);
write('Trung binh cong la: ',tong/n:4:2);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

1) a) x + 5/7 = 32/9 - ( -3/4) b) | x - 2/5 | = 1/3

Định m để hàm số sau xác định với mọi x thuộc y=√m(m+2)x²+2mx+2

Giúp mình làm bài này nha mình đang cần gấp mình cảm ơn trước nha

Trình bày vị trí địa lý và giới hạn của châu Nam Cực

Mọi người giải thích hộ mình về phương trình cân bằng nhiệt được không ? Mình mất gốc bài này rồi -(

Một vật AB=4cm đặt thẳng góc với trục chính của thấu kính và cách thấu kính 30cm, cho ảnh A’B’ =2cm ngược chiều vật . Xác định a: loại thấu kính, số phóng đại ảnh b: vị trí ảnh, tiêu cự. Vẽ ảnh

Este X được tạo thành từ etylen glicol và hai axit cacboxylic đơn chức (trong phân tử số nguyên tử cacbon nhiều hơn số nguyên tử oxi là 1). Cho m gam X tác dụng hết với dung dịch NaOH (lấy dư 20% so với lượng phản ứng) rồi chưng cất dung dịch, thu được 19,75 gam rắn khan. Giá trị của m là?

sau khi lên ngôi vua lí bí làm gì

Nêu cram nghĩ của em về cây bưởi

Làm giùm bài 2 tính nồng độ vs phần trăm ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến