Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ProgramDlaDarii;
- var
- n, i, max, min, suma, iloczyn : integer;
- tab : array [1..100] of integer;
- begin
- writeln('Podaj n: ');
- readln(n);
- for i:=0 to n-1 do // tu generujesz losowe liczby do tablicy
- begin
- tab[i] := random(10);
- end;
- for i:=0 to n-1 do // tu wyświetlacz elementy tablicy
- begin
- write(tab[i],' ');
- end;
- writeln();
- suma := 0; // tu ustawiasz na początku sumę na 0, a później dodajesz wszystkie elementy tablicy
- for i:=0 to n-1 do
- begin
- suma := suma+tab[i];
- end;
- writeln('Suma elementow tablicy: ',suma); // i wyświetlasz sumę
- iloczyn := 1; // ustawiasz na początku iloczyn na 1 i mnożysz wszystkie elementy tablicy
- for i:=0 to n-1 do
- begin
- iloczyn := iloczyn*tab[i];
- end;
- writeln('Iloczyn elementow tablicy: ',iloczyn); // wyświetlasz iloczyn
- max := 0; // ustawiasz wartość max na 0 i sprawdzasz czy znajdzie się w tablicy coś większego od niej
- for i:=0 to n-1 do
- begin
- 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)
- end;
- writeln('Element maksymalny: ',max); // na koniec wyświetlasz wartość max
- 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
- for i:=0 to n-1 do
- begin
- if (tab[i] < min) then min := tab[i];
- end;
- writeln('Element minimalny: ',min); // wyświetlasz wartość min - koniec
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement