TD
1
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
VT
1
NA
0
QT
0
TT
1
30 tháng 12 2020
uses crt;
var a:array[1..200]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 200 do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac phan tu le nho hon 200 la: ');
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i]<200) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (50<a[i]) and (a[i]<80) then t:=t+sqr(a[i]);
writeln('Tong binh phuong cac phan tu thuoc khoang (50;80) la: ',t);
readln;
end.
đang thi mik ko giúp đc, xin lỗi nha
Bh bạn thi xong vậy ạ