Question

Làm ơn giúp mình với

Câu 1 :Viết khai báo dãy A gồm N(N<=100) số thực, mỗi số có giá trị tuyệt đối không vượt quá 200

Câu 2: Dãy A gồm N(N<=100) số thực. Mỗi số có giá trị tuyệt đối không vượt quá 200.

a.hãy khởi tạo giá trị cho mảng A bằng cách dùng thủ tục random

b. Tính tổng các số có giá trị <=100 rồi đưa tb ra màn hình

Answer 1

giờ mình với là gì vậy =)?

Answer 2

 

Câu 2:

uses crt;

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

i,n,dem:integer;

t:real;

begin

clrscr;

randomize;

cin>>n;

for i:=1 to n do a[i]:=random(200);

t:=0; dem:=0;

for i:=1 to n do if a[i]<=150 then begin

t:=t+a[i];

inc(dem);

end;

writeln(t/dem:4:2);

readln;

end.