Viết chương chương trình nhập vào 1 mạng gồm n số thực tìm giá trị của phần tử lớn nhất giá trị của phần tử nhỏ nhất. in kết quả ra màn hình

nld203

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

giogiocatchgg

program Mang;

uses crt;

var A:array [1..500] of integer;

n,i,max,min: integer;

Begin

clrscr;

write('Nhap so phann tu: '); readln(n);

max:=1; min:=1;

for i:=1 to n do

begin

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

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

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

end;

write('max = ',max,' , min = ',min);

readln

End.

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

toanduong0109

Uses crt;

Var i,n,max,min: integer;
a: array[1..100] of integer;
Begin
Clrscr;
Write(' Nhap do dai cua day so, n= ');
Readln(n);
Writeln('Nhap cac phan tu cua day so: ');
For i:= 1 to n do
Begin
Write('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('Gtri lon nhat trong day la: ', max, '.Va vi tri cua no nam o:');
For i:=1 to n do if max=a[i] then write(i:4); Writeln;
Writeln('Gtri nho nhat trong day la: ', min, '.Va vi tri cua no nam o:');
For i:=1 to n do if min=a[i] then writeln(i:4);
Readln;
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đa tạ :D
*Dù số nhỏ nhất có là 1 hay 2,.. thì min kết quả vẫn chỉ đúng số đó :D

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

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

Từ khi thành lập đến nay, nước ta đã ban hành bao nhiêu bản hiến pháp.? Ý nghĩa của mỗi bản hiến pháp đó.?

bằng phương pháp nào chứng minh được rằng khi sắt cháy trong Clo thu được FeCl3, nhưng khi nung bột sắt với lưu huỳnh lại tạo ra FeS

Ai làm đc cho 20 ddieemrGiúp mk 6 phần này nha các bạn cảm rơn

viết một đoạn văn về môn thể thao yêu thích bằng tiếng anh

Giúp e viết thành bài văn hoàn chỉnh ạ ( Ko chép mạng ) ngắn gọn ạ Em cần gấp . cảm ơn trước ạ E hứa sẽ vote 5*

Have to có mấy dạng biến đổi trong câu hỏi đuôi Ghi chi tiết giúp em ạ Ví dụ nữa

choose the mistake 1. nam was refused tobe given a cholarship to study abroad 2 days ago .she could have been very sad

vẽ một sơ đồ tư duy hệ thống hóa kiến thức về cấu tạo và nguyên lý làm việc của động cơ đốt trong

1.may the president live a long time =)long...... 2.the students demanded the abolition of the regulation ( be ) =)..........

Trong cuộc sống kháng chiến chống Pháp, ông cha ta đã hy sinh anh dũng để bảo vệ Tổ quốc: Em có suy nghĩ gì để những chiến công mà cha ông ta đã dành được và trách nhiệm của em đối với tổ quốc hiện nay?

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