?? media_ar.pas
字號:
program media_aritmetica;
{sa se citeasca nr. si sa se afiseze media aritmetica a nr. pozitive din sir}
const n=10;
var a:array[1..n] of integer;
s,i,k:integer;
m:real;
begin
s:=0;
k:=0;
for i:=1 to n do
begin
write('a[',i,']= ');
read(a[i]);
if a[i]>0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
m:=s/k;
writeln('media este ',m:4:2);
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -