Z(3,3) massivinin hər sütunundaki müsbet elemenlerin orta qiymetlerinden massiv formalasdirmali.Bele bir proqrami paskalda yazmaq teleb olunur.proqramin texmini bele yazmisam.amma tamamlaya bilmirem.komek etsez shad olaram.
1 | program massiv; |
2 | uses crt; |
3 | const n=3;m=3; |
4 | var |
5 | z:array [1..n,1..m]of real;s,s1:real; |
6 | i,j:byte; |
7 | begin |
8 | for i:=1 to n do |
9 | begin write(i,'-ci setir:'); |
10 | for j:=1 to m do read(z[i,j]); |
11 | end; |
12 | for j:=1 to m do |
13 | begin S:=0; |
14 | for i:=1 to n do |
15 | S:=S+z[i,j]; S1:=S/m; |
16 | write(S1:3); |
17 | end; |
18 | end. |
Verilmiş cavablar və yazılan şərhlər (1 cavab var)
1
Salam
1program prog;2var Z: array[1..3,1..3] of real;3i,j:integer;4orta1,orta2,orta3:real;5orta: array[1..3] of real;6say: array[1..3] of integer;7begin8orta1:=0;9orta2:=0;10orta3:=0;11for i:=1 to 3 do begin12for j:=1 to 3 do begin13readln(Z[i,j]);14end;15end;16for i:=1 to 3 do begin17say[i]:=0;18for j:=1 to 3 do begin19if(Z[1,i]>0) then begin20say[i]:=say[i]+1;21orta[i]:=(orta[i]+Z[i,j]);22end;23end;24end;25for i:=1 to 3 do begin26orta[i]:=orta[i]/say[i];27writeln(orta[i]);28end;29readln;30end.Sual verin
Cavab verin