Navigace: Hlavní stránka -> PASCAL -> 06 Dvojrozměrná pole -> 06.03 Aritmetický průměr kladných sudých hodnot pole

MENU

06.03 Aritmetický průměr kladných sudých hodnot pole

Zadání:
Sestavte program, který nageneruje pole MxN náhodných čísel a vypočte aritmetický průměr z kladných sudých čísel.
Řešení:
Pro práci s polem použijeme dva vnořené cykly FOR. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var pole:array[1..100,1..100] of integer;
    m,n,i,j,pocet:integer;
    soucet:longint;
    ap:real;

begin

   write('Zadejte pocet radku: ');
   readln(m);
   write('Zadejte pocet sloupcu: ');
   readln(n);

   randomize;

   soucet:=0;

   for i:=1 to m do
   begin
      for j:=1 to n do
      begin
         pole[i,j]:=random(100)-50;
         if (not odd(pole[i,j])) and (pole[i,j]>0) then
         begin
            soucet:=soucet+pole[i,j];
            pocet:=pocet+1;
         end;
         write(pole[i,j]:4);
      end;
      writeln;
   end;

   ap:=soucet/pocet;

   writeln('Aritmeticky soucet kladnych sudych cisel: ',ap:0:3);

   readln;

end.
program ke stažení