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.