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 - Smart Customsda növbəti sifarişlərə görə 25 manat tutulacaq? (3 gün əvvəl)

E. Hacı cavab verdi - Aliexpress endirim kodu tətbiq olunduqdan sonra Smart Customsda hansı qiymət yazılmalıdır? (3 gün əvvəl)

Jorpy cavab verdi - PayPal ilə ödəniş etdikdə 18 faiz tutulmağı normaldır? (4 gün əvvəl)

Jorpy cavab verdi - PayPal ilə ödəniş etdikdə 18 faiz tutulmağı normaldır? (4 gün əvvəl)

E. Hacı cavab verdi - PayPal ilə ödəniş etdikdə 18 faiz tutulmağı normaldır? (4 gün əvvəl)

Software Developer cavab verdi - Qırılmış nömrə nə vaxt tam bağlanır (6 gün əvvəl)

Emil Imanov cavab verdi - Rus dilindən mətni tərcümə etmək (6 gün əvvəl)

Software Developer cavab verdi - Payoneer kartdan pul çıxartdıqda vergi (8 gün əvvəl)

Software Developer cavab verdi - Wise vasitəsilə bank kartına pul köçürmə (12 gün əvvəl)

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

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

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

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

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

rdrobert cavab verdi - Playstation 4 almaq, Playsation klub açmaq (17 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ş 23243 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

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