Massiv orta elementləri – Pascal.

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.

program massiv;
uses crt;
const n=3;m=3;
var
z:array [1..n,1..m]of real;s,s1:real;
i,j:byte;
begin
for i:=1 to n do
begin write(i,'-ci setir:');
for j:=1 to m do read(z[i,j]);
end;
for j:=1 to m do
begin S:=0;
for i:=1 to n do 
S:=S+z[i,j];     S1:=S/m;
write(S1:3);
end;
end.

Yadda saxlama
Kateqoriya: Sual . , . Qısa keçid.

Verilmiş cavablar və yazılan şərhlər (1 cavab var)

(20:41, 14/12/2014 ) #50592

Salam

program prog;
var Z: array[1..3,1..3] of real;
i,j:integer;
orta1,orta2,orta3:real;
orta: array[1..3] of real;
say: array[1..3] of integer;
begin
orta1:=0;
orta2:=0;
orta3:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
readln(Z[i,j]);
end;
end;
for i:=1 to 3 do begin
say[i]:=0;
for j:=1 to 3 do begin
if(Z[1,i]>0) then begin
say[i]:=say[i]+1;
orta[i]:=(orta[i]+Z[i,j]);
end;
end;
end;
for i:=1 to 3 do begin
orta[i]:=orta[i]/say[i];
writeln(orta[i]);
end;
readln;
end.
Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Bu suala aid öz sualım var:
Sual verin
Bu suala cavab vermək istəyirəm:
Cavab verin

Cavab verin


Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Elan qutusu

Son cavablar və şərhlər

Triste cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (6 gün əvvəl)

Software Developer cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (6 gün əvvəl)

Triste cavab verdi - Google Adsense vergi (6 gün əvvəl)

E. Hacı cavab verdi - Xif mn kodu (14 gün əvvəl)

Khagrov cavab verdi - Axtardığım mahnını tapa bilmirəm kömək edin (33 gün əvvəl)

E. Hacı cavab verdi - Dünəndən Kompüterlə Twitter/X və Pinterest -ə girə bilmirəm. (40 gün əvvəl)

orkhanrza cavab verdi - AZ9095də bağlama qalıb (45 gün əvvəl)

Ismayil1997 cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (54 gün əvvəl)

revan orucov cavab verdi - Bakıda evə 100mbps+ internet verən provayder var? (58 gün əvvəl)

E. Hacı cavab verdi - WordPress sistemli saytda Facebook və İnstagram platformalarına özəl target_blank tənzimlənməsi haqqında... (59 gün əvvəl)

Jurnalist cavab verdi - WordPress sistemli saytda Facebook və İnstagram platformalarına özəl target_blank tənzimlənməsi haqqında... (60 gün əvvəl)

asssa1 cavab verdi - Riyazi proqramlar üçün proqram (61 gün əvvəl)

Aleks cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (68 gün əvvəl)

E. Hacı cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (68 gün əvvəl)

Software Developer cavab verdi - Patreon , Ko-fi , Buy Me A Coffee , Kickstarter kimi saytlardan gələn pula görə vergi tutulur? (68 gün əvvəl)

Software Developer - 615 xal

E. Hacı - 608 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 434 xal

Maqa - 346 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Sistemə daxil olmuş 23288 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

E-Haci.net istehsalı. © 2010-2024