Quảng cáo
2 câu trả lời 115
Lời giải:
uses crt;
var a:array[1..30]of real;
i:integer;
t:real;
begin
clrscr;
for i:=1 to 30 do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so lon hon 5 trong day la: ');
t:=0;
for i:=1 to 30 do
if a[i]>5 then
begin
write(a[i]:4:2,' ');
t:=t+a[i];
end;
writeln;
writeln('Tong cac so lon hon 5 trong day la: ',t:4:2);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149631 -
Đã trả lời bởi chuyên gia
99998 -
Đã trả lời bởi chuyên gia
97612 -
Đã trả lời bởi chuyên gia
80300 -
Đã trả lời bởi chuyên gia
73097 -
Đã trả lời bởi chuyên gia
56190 -
Đã trả lời bởi chuyên gia
55568
Gửi báo cáo thành công!
