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

Gianggieogiai22

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

phamhoangducson

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:

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

rinmay

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.

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

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

khởi nghĩa hai bà trưng có diễn biến như nào

Mn ơi Giúp mk với Mới lớp 8 nhưng lại ôn thi lớp 9 Mong mn giúp đỡ ạ

Ai giải giúp mình bài tập Câu tường thuật với

Another question help me Đặt x= $\sqrt{2+\sqrt{2}+\sqrt{2}+... } (vô hạn dấu căn)$ CMR x=2

Dạ cứu e với mọi người ơi $\sqrt{2\sqrt[3]{3\sqrt[4]{4...\sqrt[n]{n}}}} <2$

làm giúp e bài này vơi dài và hay nha

Giúp mình với mọi người ơi, cảm ơn nhiều Cho tam giác ABC, đường thẳng d cắt AB, AC và trung tuyến AM theo thứ tự E, F, N. Chứng minh: $\frac{AB}{AE}$ + $\frac{AC}{AF}$ = $\frac{2AM}{AN}$

làm nhanh nha ,mình cần luôn chỉ cấn đáp án

Một mảnh vườn hình chữ nhật có chu vi 92 m. Nếu tăng chiều rộng thêm 5 m và giảm chiều dài đi cũng 5 m thì mảnh vườn sẽ trở thành hình vuông. Tính diện tích ban đầu của mảnh vườn.

Giúp em vơi Bài 3 Tìm số tự nhiên có 3 chữ số abc biết b^2=a.c và abc-cba=495 Bài 8 Có bao nhiêu số có 3 chữ số trong đó có đúng một chữ số 5 HELP ME!!!!!!!!!!!!!!!

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