Question

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?

Answer 1

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.