Facebook

PASCAL safest cryptocurrency exchange

From Kamil, 6 Years ago, written in Plain Text.
URL https://pastebin.pl/view/e8cc7519
Embed
Download Paste or View Raw
Hits: 252
  1. program Project1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  7.   cthreads,
  8.   {$ENDIF}{$ENDIF}
  9.   Classes
  10.   { you can add units after this };
  11. type tablica= array[1..8] of real;
  12. var
  13.  tablica1 : tablica;
  14.  i, ilosc : integer;
  15.  
  16. Function srednia(tablica1:tablica):Real;
  17. var suma : real;
  18.     ilosc : integer;
  19.  begin
  20.  suma:=0;
  21.  ilosc:=0;
  22.  for i:=0 to 8 do
  23.  begin
  24.  if(tablica1[i] mod 2 = 0) then
  25.  begin
  26.  suma:=suma+tablica1[i];
  27.  ilosc:=ilosc+1;
  28.  end;
  29.  end;
  30.  srednia:=suma/ilosc;
  31.  
  32.  end;
  33.  
  34. begin
  35. for i:=1 to 8    do
  36. begin
  37.   writeln('Podaj ',i,' element tablicy');
  38.   readln(tablica1[i]);
  39. end;
  40.  
  41. for i:=1 to 8    do
  42. begin
  43.   writeln('Element[',i,']=',tablica1[i]);
  44.  
  45. end;
  46. writeln('Srednia elementow podzielnych przez dwa wynosi :',srednia(tablica1));
  47. end.
  48.  
  49.                                              

Reply to "PASCAL"