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

Software Developer cavab verdi - Rus dilindən mətni tərcümə etmək (8 saat əvvəl)

Cənab cavab verdi - Almanca söz bazası yığmaq (3 gün əvvəl)

rdrobert cavab verdi - Mikrofon süngərinə yazı (4 gün əvvəl)

rdrobert cavab verdi - Yerli virtual olaraq dost tapmaq platforması (4 gün əvvəl)

rdrobert cavab verdi - Almanca söz bazası yığmaq (4 gün əvvəl)

rdrobert cavab verdi - Playstation 4 almaq, Playsation klub açmaq (4 gün əvvəl)

rdrobert cavab verdi - Proqramistin ixtsasi hansidir? (4 gün əvvəl)

Software Developer cavab verdi - Azercell Kabinetim aplikasiyasında İstəSən tarifi haqqında (5 gün əvvəl)

Software Developer cavab verdi - Proqramistin ixtsasi hansidir? (5 gün əvvəl)

byshako cavab verdi - Google Azərbaycan nömrələrini qəbul etmir (16 gün əvvəl)

rdrobert cavab verdi - Honeygain, passiv gelir (17 gün əvvəl)

rdrobert cavab verdi - Xaricdən telefon getirmek (17 gün əvvəl)

rdrobert cavab verdi - Google Azərbaycan nömrələrini qəbul etmir (17 gün əvvəl)

rdrobert cavab verdi - AliExpress, Telefon, Rüsum (17 gün əvvəl)

MiMov cavab verdi - Özəl ip tv qurmaq (25 gün əvvəl)

Lider istifadəçilər

Software Developer - 615 xal

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

Proyekt haqqında

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