Question

Nhờ các  cao nhân giúp đỡ ạ. E cảm ơn ạ .

Nhập mảng 1 chiều A gồm 200 phần tử

a, in ra các phần tử lẻ <200

b, tính tổng bình phương các phần tử thuộc khoảng (50,80)

 

Answer 1

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.