У масиві А(n) (n<=9) визначити середнє арифметичне додатніх елементів.
program rl; uses crt;
const n=9;
var a:array[1..n] of real; i:byte;srz:real;
begin
s:=0;
writeln (' vvedit masuv1);
for i:=l to n do
begin
writeln('a[',i,']='); readln(a [ i ] ) ;
end;
for i:=l to n do
begin
if a[i]>=0 then
s:=s+a[i];
end;
z:=s/n;
writeln('z=',z);
readln;
end.
program zadacha3;
uses crt;
const x=6.4;z=0.9;
a:array[1..5] of real=(l.l,2.4,5.6,-2.4,0.5);
b:array[1..5] of real=(l.4,3.6,1.3,-2.1,-3.3);
var Q,dl,d2,d3:real;
i:integer;
begin clrsc;
for i:=l to 5 do begin
dl:={(a[i]-sqr(b[i])*b[i])/cos(x*z-.7))+dl; if (i>=2) and (i<=4) then
d2:=(cos(3.6-x*x)/(sqr(b[i])-sqr(a[i])*a[i]))+d2;
if (i>=2) and (i<=5) then
d3:=((sqr(b[i])*b[i]-sqr(a[i])*a[i])/cos(x-0.3*z))+d3;
end;
Q:=dl-d2+d3; writeln('Q=',Q:10:2); readln;
end.
Дано: матрицю А(m1,m2),з якої потрібно утворити нову матрицю таким чином: вci елементи поділити на її мінімальний елемент, не рівний 0.
program masiv2; const n=3;
const m=3;
var a:array[1..n,1..m]of real; min:real;
i/j:integer;
begin
for i:=l to n do begin
write (i, ' : ') ;
for j:=1 to m do begin
read(a[i,j]); end;
writeln; end;
min:=a[1,1];
for i:=l to n do begin
for j:=1 to m do begin
if (a[i,j]<min) and (min<>0) then min:=a[i,j];
end;
end;
for i:=l to n do begin
for j:=1 to m do begin
a[i,j]:=a[i,j]/min; write(a[i,j]:0:2, ' ');
end;
writeln;
end;
readln;
readln;
end.