Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử(0<n<100),viết chương trình xử lý các câu sau: a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó
1 câu trả lời
Mình sẽ so sánh lần lượt từ a[1] đến a[n] sao đó đưa ra max , min và vị trí của số đó
Vậy chương trình là
Program Sosanh;
Var a: array[1..1000] of integer;
n, i,max, min, sx, sn: integer;
uses crt;
BEGIN
clrscr;
Write('Nhap N: '); Readln(n);
For i := 1 to n do
begin
write('a['i']= '); readln(a[i]);
end;
max : = a[1];
min : = a[ 1];
sx:=1;
sn:=1;
For i:= 2 to n do
begin
if min > a[i] then begin min := a[i]; sn := i end;
if max < a[i] then begin max := a[i]; sx := i end;
end;
Writeln('Min: ', 'a[',sn,']= ',min);
Writeln('Max: ', 'a[',sx,']= ',max);
Readln;
END.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
