Treść zadania

Najlepsze rozwiązanie

• 

  0 0

  Emandel 18.10.2010 (08:39)

  1) Tworzymy tablicę elementów:
  var
  tab: array [1..n] of Real
  Suma: Real
  n, ileElementow: integer
  
  2) wypełniamy ją losowymi danymi:
  Suma:=0;
  ileElementow:=0
  n:=100;
  randomize;
  
  for a:=1 to n do
  tab[a]:=random(10)+1; (luknij w opis funkcji random, klepię z pamięci)
  
  3) przebiegamy wszystkie elementy tablicy i jeżeli znajdziemy dodatni różny od zera, sumujemy do zmiennej Suma, zwiększamy przy okazji licznik znalezionych elementów o jeden:
  
  for b:=1 to n do
  if tab>0
  begin
  Suma=Suma+tab;
  ileElementow=ileElementow+1;
  end;
  
  4) Sprawdzamy czy ilość znalezionych elementów jest większa od zera, bo jak nie to nie możemy dzielić przez zero i podajemy wynik:
  
  if ileElementow>0
  writeln("Srednia arytmetyczna", ileElementow, ' liczb dodatnich w tablicy tab[n] wynosi: ", Suma / ileElementow);
  
  Schematu blokowego nie narysuję bo nie wiem jak się to tu robi póki co, ale na podstawie takiego opisu można coś porzeźbić ;-P

  Dodawanie komentarzy zablokowane - Zgłoś nadużycie