1.

Wczytywać  liczby   całkowite aż do momentu, gdy dwie kolejne liczby będą równe dwóm pierwszym. 
Wydrukować ilość wczytanych liczb parzystych, wliczając w to wszystkie wczytane liczby.

2.

Wczytać dane postaci (liczba, znak) do tablic A, B[1..w,1..k] (w, k-stałe). W tablicy A zastąpić kropki 
przecinkami, jeżeli pole liczbowe jest większe od 5, zaś w tablicy B zastąpić przecinki średnikami, jeżeli 
pole liczbowe jest większe od  20. Wydrukować pola znakowe obu  tablic po zamianie. 

3.

Z pliku 'pa.pas' wczytać dane do tablicy A[1..n] (n- stała), z pliku 'pb.pas' wczytać dane do tablicy B[1..n], 
zaś z pliku 'pc.pas' wczytać dane do tablicy C[1..n]. Wydrukować wszystkie możliwe iloczyny skalarne 
tablic.

4.

Dla   elementów   listy   określonej   przez   typ:  Type   adr=^towar;   towar=record   nazwa:string;   cena:real; 
nast:adr end napisać procedurę, która dopisuje na końcu listy dwa elementy wpisując do pól nazwa i cena 
informacje o najtańszym i najdroższym towarze.

1.

Wczytywać ciąg liczb, aż do dwukrotnego wczytania wartości mniejszej od pierwszej wczytanej liczby. 
Wydrukować średnią arytmetyczną liczb dodatnich oraz ile razy obok siebie wystąpiły dwie jedynki.

2.

Wczytać   dane   do   tablic   X,Y[1..n,1..n]   of   real   (n   –   stała).   W   każdej   tablicy   wyzerować   otoczenie 
największego   elementu   drugiej   przekątnej.   Wydrukować   tablice   kolumnami   poczynając   od   ostatniej 
kolumny.

3.

Do pliku ‘dane.txt’ wczytywać z klawiatury wiersze, dopóki kończą się małą literą. Następnie z tego pliku 
przepisać do pliku ‘a.txt’ wiersze zaczynające się znakami ‘a’ lub ‘x’, a do pliku ‘b.txt’ zaczynające się 
znakami ‘i’ lub ‘z’. Wyświetlić zawartość wszystkich plików.

4.

Dla listy określonej przez typy: type Tadr=^element; element=record nazwa:string; liczba:real; nast:Tadr 
end; napisać procedurę, która zamienia miejscami zawartość dwóch ostatnich elementów na tej liście.

1.

Wczytać   ciąg   znaków   zakończony   dwoma   następującymi   po   sobie   wykrzyknikami.   Dla   każdego 
wczytanego znaku drukować informację, jaki znak wczytano: małą literę, dużą literę, cyfrę czy jakiś inny 
znak.

2.

Wczytać   punkty   -   rekordy  postaci   (x,   y)   do   tablic   A,B[1..n,1..n]   (n-stała).   W   każdej   tablicy   zamienić 
miejscami skrajne elementy tych kolumn, w których element leżący na głównej przekątnej ma sumę pól 
większą od 10 – w tablicy A oraz od 5 – w tablicy B.

3.

Z pliku tekstowego o wczytanej nazwie przepisać do pliku ‘wyn1.pas’ 7 początkowych wierszy, a do pliku 
‘wyn2.pas’   10   początkowych   wierszy   (przyjąć,   że   w   pliku   danym   jest   dostatecznie   dużo   wierszy)   . 
Wydrukować informację, który z utworzonych plików ma więcej  kropek, a który więcej przecinków.

4.

Dla   elementów   listy   określonej   przez   typ:  Type   adr=^towar;   towar=record   nazwa:string;   cena:real; 
nast:adr end napisać funkcję wyznaczającą, ile jest towarów droższych od ostatniego lub przedostatniego 
towaru.

1.

Wczytywać znaki, aż do wystąpienia kolejno dwóch jednakowych znaków. Wydrukować informację, czy 
więcej wczytano małych liter czy dużych liter.

2.

Wczytać liczby do tablic X,Y[1..w,1..k] of real (w,k-stałe). W tablicy X wyzerować  największą wartość 
pierwszego wiersza, a w tablicy Y -  największą wartość drugiego  i przedostatniego wiersza. Wydrukować 
tablice.

3.

Z pliku ‘w1.txt’ wpisać do tablicy A[1..n] (n-stała)  wszystkie przecinki i średniki idąc od początku tablicy, 
zaś  pozostałe   znaki  –  idąc  od  końca   tablicy,  zaś  z     pliku  ‘w2.txt’   wpisać   do  tablicy  B[1..n]  (n-stała) 
wszystkie   znaki   zapytania   i     wykrzykniki   od   początku   tablicy,   zaś   pozostałe   znaki   od   końca   tablicy. 
Wydrukować obie tablice.

4.

Dla elementów listy zdefiniowanej typami:  type Twsk=^cos; cos=record liczba: integer; nast:Twsk end;  
napisać   procedurę,  która  dopisuje   na  początku i  końcu  listy element  zawierający  liczbę   będącą   sumą 
dodatnich pól liczbowych elementów listy.