1. Dany jest ciąg znaków tekstu zakończony średnikiem. Napisać program wczytywania znaków i wyznaczania w ciągu liczby znaków dużych liter oraz liczby wystąpień znaków `r' i `z' obok siebie.

2. Dany jest N elementowy(N<=25) ciąg liczb rzeczywistych. Opracować program, w którym:

• Wczytywane są wartości ciągu do tablicy X,

• Tworzona jest tablica Y zawierająca elementy obliczane dla wzoru i=1,2,…N według wzoru:

gdzie: sg - oznacza wartość średniej geometrycznej dodatnich elementów tablicy

3. W pliku o elementach typu PRACOWNIK:

Type pracownik=rekord

nazwisko: string[15];

wiek, staz: intiger;

placa: real;

plec: (meszczyzna, kobieta);

end;

Zapisane są dane o pracownikach przedsiębiorstwa. Napisać program zawierający procedurę wyprowadzania danych do pliku oraz procedurę wyświetlającą na ekranie informację ilu mężczyzn zawiera mniej niż wynosi średnia płaca kobiet.

1. Napisać program , który wyznacza sumy elementów ciągu:

i=1,2…..

Sumowanie kolejnych wyrazów należy przerwać gdy różnica kolejnych wyrazów

ciągu spełnia warunek:

Eps oraz C- wczytywane wartości rzeczywiste..

2. Dany jest N elementowy ciąg dodatnich liczb całkowitych(N<50).

Opracować program, w którym:

• Wczytywane są wartości do tablicy A,

• Wczytywane są indeksy minimalnego i maksymalnego elementu tablicy,

• Wyznaczana jest średnia elementów pomiędzy tymi dwoma elementami,

• Wyprowadzone są obliczone wartości.

3. W pliku o elementach typu ZAKUP.

Type zakup=rekord

nazwa: string[15];

ilosc: integer;

cena: real;

data_zak: record

dzien, miesiac, rok: integer;

end;

Zapisane są dane o transakcjach zakupu towarów. W poszczególnych rekordach pamiętane są nazwy, ilości i ceny zakupywanych towarów oraz daty transakcji. Napisać program zawierający procedurę wyznaczającą wartość towarów zakupionych w lipcu 2000 roku oraz procedurę wyznaczającą datę( dzień, miesiąc) tej transakcji zawartej w 20001 roku, w której za towary zapłacono największą kwotę.

1. Dany jest ciąg znaków zakończony średnikiem. Napisać program zliczający ile jest w ciągu wszystkich znaków oraz ile jest znaków równych pierwszemu wczytanemu znakowi.

2. Dany jest K elementowy ciąg liczb(K<=10). Napisać program, w którym:

• Wczytywane są elementy ciągu do tablicy A,

• Wczytywane są elementy tablicy B według wzoru:

Gdzie Sdod = średnia elementów dodatnich tablicy A. Jeśli żaden element ciągu nie jest dodatni to należy przyjąć sdod = 1.

Algorytm obliczania sdod należy zapisać w postaci funkcji, natomiast algorytm wczytania tablicy B w postaci procedur.

3. W pliku o elementach typu MIESZKANIE:

Type mieszkanie=rekord

adres: string[25];

liczba_lokatorow, pietro: integer;

powierzchnia: real;

end;

Zapisane są dane o mieszkaniach administrowanych przez spółdzielnie.

Napisać program zawierający dwie procedury lub funkcje:

• Wyświetlającą wszystkie dane o mieszkaniach zajmowanych przez 1 lokatora,

• Wyznaczającą średnią liczbę lokatorów w mieszkaniach o powierzchni powyżej 50m. kw.

---