Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 8
- 40 điểm
- xemchuagod -
Nhập vào một dãy n số nguyên A[1],A[2],...,A[n]. In ra màn hình các thông tin sau: Nhập vào số hạng dương nhỏ nhất của dãy và chỉ số của nó. +Dùng mảng (array ý) +Bằng Pascal
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
Program Taylor;
uses crt;
var n,i,vt:longint; a:array[0..100000]of longint;
begin
clrscr;
write('n=');readln(n); a[vt]:=high(longint);
For i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if (a[i] mod 2=0)and(a[i]<a[vt]) then vt:=i;
end;
if vt=0 then write('Khong co so hang duong nao trong day.') else write('So hang duong nho nhat tong day: ',a[vt],', Chi so cua no: ',vt);
readln
end.
Test:
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var a:array[1..100000] of longint;
i,n,min,k: longint;
begin
clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
begin
write('A[',i,']: '); readln(A[i]);
end;
Min:=A[1]; k:=1;
For i:=1 to n do if (A[i]<min) and (A[i]>0) then
Begin
k:=i;
min:=A[i];
end;
Writeln('So hang duong NN la: ',min,' va chi so cua no la: ',k);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
2376
47183
1805
Xin 5 sao va tim ạ
1966
34778
1559
Số dương chứ có phải số chẵn đâu mà bạn làm "a[i] mod 2 = 0" vậy?
2376
47183
1805
ok
2376
47183
1805
Program Taylor; uses crt; var n,i,vt:longint; a:array[0..100000]of longint; begin clrscr; write('n=');readln(n); a[vt]:=high(longint); For i:=1 to n do begin write('a[',i,']=');readln(a[i]); if (a[i]>0)and(a[i]<a[vt]) then vt:=i; end; if vt=0 then write('Khong co so hang duong nao trong day.') else write('So hang duong nho nhat tong day: ',a[vt],', Chi so cua no: ',vt); readln end. Rút gọnProgram Taylor; uses crt; var n,i,vt:longint; a:array[0..100000]of longint; begin clrscr; write('n=');readln(n); a[vt]:=high(longint); For i:=1 to n do begin write('a[',i,']=');readln(a[i]); if (a[i]>0)and(a[i]<a[vt]) then... xem thêm
2376
47183
1805
Roi do ban
1966
34778
1559
Uh -_-