Advertisement
Guest User

Untitled

a guest
Apr 25th, 2018
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.88 KB | None | 0 0
  1. program ProgramDlaDarii;
  2.  
  3. var
  4. n, i, max, min, suma, iloczyn : integer;
  5. tab : array [1..100] of integer;
  6.  
  7. begin
  8.  
  9. writeln('Podaj n: ');
  10. readln(n);
  11.  
  12. for i:=0 to n-1 do // tu generujesz losowe liczby do tablicy
  13. begin
  14. tab[i] := random(10);
  15. end;
  16.  
  17. for i:=0 to n-1 do // tu wyświetlacz elementy tablicy
  18. begin
  19. write(tab[i],' ');
  20. end;
  21. writeln();
  22.  
  23. suma := 0; // tu ustawiasz na początku sumę na 0, a później dodajesz wszystkie elementy tablicy
  24.  
  25. for i:=0 to n-1 do
  26. begin
  27. suma := suma+tab[i];
  28. end;
  29.  
  30. writeln('Suma elementow tablicy: ',suma); // i wyświetlasz sumę
  31.  
  32. iloczyn := 1; // ustawiasz na początku iloczyn na 1 i mnożysz wszystkie elementy tablicy
  33.  
  34. for i:=0 to n-1 do
  35. begin
  36. iloczyn := iloczyn*tab[i];
  37. end;
  38.  
  39. writeln('Iloczyn elementow tablicy: ',iloczyn); // wyświetlasz iloczyn
  40.  
  41. max := 0; // ustawiasz wartość max na 0 i sprawdzasz czy znajdzie się w tablicy coś większego od niej
  42.  
  43. for i:=0 to n-1 do
  44. begin
  45. if (tab[i] > max) then max := tab[i]; // jeżeli się znajdzie, ustawiasz max na ten element tablicy i sprawdzasz dalej (i tak całą tablice)
  46. end;
  47.  
  48. writeln('Element maksymalny: ',max); // na koniec wyświetlasz wartość max
  49.  
  50. min := 10; // tak samo robisz z min, ale na odwrót - ustawiasz min na 10 i sprawdzasz czy będzie jakiś mniejszy element w tablicy
  51.  
  52. for i:=0 to n-1 do
  53. begin
  54. if (tab[i] < min) then min := tab[i];
  55. end;
  56.  
  57. writeln('Element minimalny: ',min); // wyświetlasz wartość min - koniec
  58.  
  59. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement