SUAL VERİN

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.
Sualı verdi: Elçin (14/12/2014)

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
Şifrəni unutmusunuz?

Elan qutusu

Son cavablar və şərhlər

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

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

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

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

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

revan orucov cavab verdi - Bakıda evə 100mbps+ internet verən provayder var? (44 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... (46 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... (46 gün əvvəl)

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

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

E. Hacı cavab verdi - İndiki dövrdə İngilis dili müəllimliyi ixtisasını seçməyə dəyər? (55 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? (55 gün əvvəl)

E. Hacı cavab verdi - Riyazi proqramlar üçün proqram (56 gün əvvəl)

Software Developer cavab verdi - Kursda xaricdə təhsil imkanı nece yaranır? (56 gün əvvəl)

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

Lider istifadəçilər

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ş 23286 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

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