1.Viết chương trình nhập vào dãy số nguyên n. Tính tổng và tìm ra giá trị nhỏ nhất của dãy số đó 2.Viết chương trình nhập vào 1 dãy số thực n. Tính giá trị trung bình và tìm ra giá trị lớn nhất của dãy số giúp mình với, cảm ơn

kin2506

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 98 xem

1 trả lời

Thích Trả lời

2767705720207716

uses crt;
var A:array[1..100] of integer;
i,n,s,min:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
s:=s+A[i];
end;
min:=A[1];
for i:=2 to n do if min>A[i] then min:=A[i];
writeln('Tong la: ',s);
writeln('Gia tri nho nhat la: ',min);
readln
end.

uses crt;
var A:array[1..100] of real;
i,n:integer; s,max:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
s:=s+A[i];
end;
max:=A[1];
for i:=2 to n do if max<A[i] then max:=A[i];
s:=s/n;
writeln('Gia tri trung binh la: ',s:4:2);
writeln('Gia tri lon nhat la: ',max:4:2);
readln
end.

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

hoangnam

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,s,min: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
min:=maxlongint;
s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
s:=s+A[i];
If A[i]<min then min:=A[i];
End;
Writeln('S = ',s);
Write(min);
Readln
End.

Program FNG;
Uses crt;
Var A: array[1..1000] of extended;
n,i: longint;
max,s: extended;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
max:=-99999999999;
s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
s:=s+A[i];
If A[i]>max then max:=A[i];
End;
Writeln('TBC = ',s/n:0:2);
Write(max:0:2);
Readln
End.

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

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

Nêu thời gian nội dung kế hoạch của Pháp trong lần xâm lược thứ 2 ở Việt Nam năm 1946-1954

Nhớ làm đúng ,mik sẽ cho vote 5 sao và cảm ơn ❤

Cộng hòa xã hội chủ nghĩa Việt Nam là gì

Nêu ứng dụng vẽ sự nở vì nhiệt của các chất? ~~~~~~~~~~~~~GIÚP MÌNH VỚI CÁC BẠN TRAI XINH\ GÁI ĐẸP~~~~~~~~~~~~~~~~~~~~~~~~~

Em hãy so sánh cơ quan dinh dưỡng của thằn lằn và ếch đồng Giúp mik với đang cần gấp

Mọi người giúp mik với ạ Sinh sản có hiện tượng thai sinh và nuôi con bằng sữa có ưu điểm gì so với các hình thức sinh sản khác?

“Lời nói có sức mạnh gắn kết con người lại với nhau. Những lời nói tốt đẹp chẳng khác gì phép màu khiến người khác cảm thấy được thấu hiểu, được động viên mà vui vẻ. Lời nói sẻ chia tình cảm, giúp người khác hiểu mình và mình thêm hiểu người khác. Nó đâu chỉ là một phương tiện giao tiếp, trao đổi thông tin hay thực hiện các giao kết xã hội mà còn là phương tiện để con người bày tỏ tình cảm, thấu hiểu lẫn nhau. Một lời nói đúng đắn có thể xua đi căng thẳng, hàn gắn được vết thương ở trong lòng. Lời nói tuy dễ thực hiện nhưng chứa đựng sức mạnh lớn lao. Khi xảy ra xung đột, một người biết nhượng bộ, dùng lời lẽ mềm dẻo để hòa giải tất sẽ không có bạo lực xảy ra. Việc lớn sẽ thành việc nhỏ, việc nhỏ trở thành không có. Không ai muốn xảy ra bạo lực hay gây tổn thương cho người khác. Nếu biết nói lời dễ nghe thì những điều đáng tiếc có thể đã không xảy đến”. (Theo Dương Lê, Sức mạnh của lời nói) 1.đoạn văn trên đã đưa ra những sức mạnh nào của lời nói

Cơ năng là gì????????????????????????

Vật nào sau đây hấp thụ nhiệt tốt nhất? A: Vật có bề mặt sần sùi, sẫm màu. B: Vật có bề mặt nhẵn, sáng màu. C: Vật có bề mặt nhẵn, sẫm màu. D: Vật có bề mặt sần sùi, sáng màu.

Mọi người giúp mình bài này nhé . cảm ơn mọi người .mình cần gấp ak

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