Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
ℍ𝕠̣𝕔 𝔻𝕠̂́𝕥

Viết chương trình Pascal:

Nhập  một dãy số thực A có N phần tử. N là một số tự nhiên được nhập từ bàn phím (N bé hơn hoặc bằng 100). Chương trình sẽ đi tìm giá trị bé nhất của dãy số A và tìm tổng các phần tử có chỉ số là số chẳn. Các kết quả được in lên màn hình có 2 chữ số thập phân. 

Giúp mình với ạ, sáng mai nộp bài rồi:((

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:45

uses crt;

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

i,n:integer;

min,t:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln('Gia tri nho nhat la: ',min:4:2);

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+a[i];

writeln('Tong cac phan tu co chi so chan la: ',t:4:2);

readln;

end. 


Các câu hỏi tương tự
vy tường
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Bình
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
Phạm Tuấn Kiệt
Xem chi tiết
Thư ĐT
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Huyền Trần
Xem chi tiết