Bài 11: Kiểu mảng

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

Cho 10 phần tử kiểu thực

a) tổng của phần tử dưới 5

b) xuất 4 phần tử cuối

Giúp mk vs, mai mk ktra r

Nguyễn Lê Phước Thịnh
1 tháng 12 2020 lúc 16:53

uses crt;

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

i:integer;

t:real;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

t:=0;

for i:=1 to 10 do

if a[i]<5 then t:=t+a[i];

writeln('Tong cac phan tu duoi 5 la: ',t);

writeln('4 phan tu cuoi la: ');

for i:=7 to 10 do

write(a[i]:4:2,' ');

readln;

end.


Các câu hỏi tương tự
Tô Thị Thanh Tuyền
Xem chi tiết
NTTN
Xem chi tiết
Trung Lê Hữu
Xem chi tiết
Trung Trần Việt
Xem chi tiết
Đức Huy
Xem chi tiết
Huỳnh Thanh
Xem chi tiết
Bui Trong Diep
Xem chi tiết
Đào Kim Ngân
Xem chi tiết
Minh Hoạt
Xem chi tiết
Toản Nguyễn
Xem chi tiết