Viết chương trình nhập vào mảng A gồm 20 phần tử, thực hiện công việc sau - Xuất ra màn hình giá trị phần tử nhỏ nhất cuối cùng của dãy số - Xuất ra màn hình giá trị phần tử lớn nhất đầu tiên của dãy số

bachkimnguyenthi

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

vuhien_th

uses crt;

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

i, n, min, max, cs1, cs2 : integer;

begin

clrscr;

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

for i := 1 to n do

begin

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

readln(a[i]); end;

min := a[n]; max := a[1]; cs1 := 1; cs2 := n;

for i := 2 to n do

if a[i] > max then begin max := a[i]; cs1 := i; end;

for i := n - 1 downto 1 do

if a[i] < min then begin min := a[i]; cs2 := i; end;

writeln('Phan tu lon nhat dau day : ', min ,' vi tri ', cs2);

writeln('Phan tu nho nhat cuoi day : ', max ,' vi tri ', cs1);

readln

end.

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

hotrongnghiacom

program baio1;

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

n,i:longint;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

write('a[,i,']= ');

readln(a[i]);

END;

max:=a[1];min:=a[1];

for i:=1 to n do

if a[i]>max then max:=a[i]

else min:=a[i];

write('...');

readln

end.

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

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

Viết đoạn văn bằng tiếng anh giới thiệu về môn học em yêu thích và tại sao em lại thích môn học đó

suy nghĩ về hình ảnh chử tịch HCM trong bài thơ Rằm tháng giêng.cảnh khuya

viết một đoạn văn tả . kể chị gái của mình [ không chép văn mẫu hay mạng hộ mình vs nhé ]

Giúp mình câu này với! (Nhớ vẽ hình nhé) Đề: Cho tam giác ABC vuông tại A có đường cao AH. Gọi D và E lần lượt là hình chiếu của H lên AB và AC. a) Tứ giác ADHE là hình gì? Vì sao? b) Gọi K là điểm sao cho D là trung điểm của KH. Gọi K là điểm sao cho E là trung điểm của GH. Cm K,A,G thẳng hàng. c) Gọi M là trung điểm của BC. Cm AM vuông góc với DE Ai trả lời đầy đủ mình vote 5 sao (0 trả lời linh tinh)

Phần Địa C1,2,3,4,5 Help me 😢😢😢

1) Tôn trọng kỉ luật giúp chúng ta thế nào trong học tập? Em đã tôn trọng kỉ luật trong nhà trường chưa? 2) Thế nào là yêu thiên nhiên, sống hòa hợp với thiên nhiên? Kể những việc làm của em thể hiện tình yêu thiên nhiên? 3) Em hãy nêu một tấm gương tích cực tự giác trong học tập và lao động mà em biết? Em học hỏi được gì ở tấm gương đó? Mình cần gấp nha

Giải dùm mình bài này với ạ. Cảm ơn nhiều lắm

If p and q are primes and $x^{2}$ -px+q=0 has distinct positive integral roots, find p and q

viết công thức liên hệ giữa khối lượng va trong lượng của cùng một vật

Viết đoạn văn ngắn chỉ ra và phân tích phép tu từ 4 câu cuối bài Đoàn thuyền đánh cá

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