Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
thanh hùng

Mọi người giải giùm mình với ạ

Viết chương trình (VCT) nhập vào một mảng số thực gồm 10 phần tử.

1. Tính tổng các phần tử thứ tự 1,3,5,7,9 và in kết quả ra màn hình?

2. Tìm phần tử lớn nhất trongmảng đã nhập và in ra kết quả ra màn hình?

3. Cho biết có bao nhiêu phần tử có giá trị >5?

Nguyễn Lê Phước Thịnh
18 tháng 2 2020 lúc 10:26

uses crt;

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

dem,i:integer;

t,ln:real;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

{------------------------------------cau-a------------------------------------}

t:=0;

for i:=1 to 10 do

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

writeln('tong cac phan tu o vi tri le trong day la: ',t:4:2);

{---------------------------------cau-b--------------------------------------}

ln:=a[1];

for i:=1 to 10 do

if ln<a[i] then ln:=a[i];

writeln('phan tu lon nhat trong mang la: ',ln);

{----------------------------------cau-c------------------------------------}

dem:=0;

for i:=1 to 10 do

if a[i]>5 then inc(dem);

writeln('so phan tu lon hon 5 trong day la: ',dem);

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Tien Nguyen
Xem chi tiết
Bin Nguyễn
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
Phạm Việt Bách
Xem chi tiết
Camthuy Nguyen
Xem chi tiết
Ngọcc Ngọccc
Xem chi tiết
Trùm Trường
Xem chi tiết
Thùy An
Xem chi tiết
CHANNANGAMI
Xem chi tiết