нужна помощь по Паскалю(Помогите решить задачи)

[Allkz]

Задания учебной практики по программированию - 2 семестр

Матрицы
Определить:
а) среднее арифметическое элементов главной диагонали квадратной матрицы;
б) среднее арифметическое элементов побочной диагонали квадратной матрицы

Записи

Имеется информация о количестве осадков, выпавших за день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое – в виде дождя.(Считать, что идёт дождь, если температура воздуха выше 0).
Файлы

Дан типизированный файл, элементами которого являются отдельные слова. Напечатать:
А) первый элемент:
Б) пятый элемент:
В) k-й элемент :
Г) последний элемент:

Составление меню.

1. Выполнить на ПК программу создания файла в соответствии с вариантом задания.
2. Выполнить на ПК программу обработки созданного файла, в соответствии с заданием.
3. Создать меню с опциями : создание файла , просмотр файла, выборка информации, выход.
4. Все опции меню оформить в виде подпрограмм
5. Проверить правильность выполнения программы с помощью тестового варианта исходных данных.

Варианты задания

А. Создать файл, содержащий сведения о личной коллекции книголюба. Структура записи: шифр книги, автор, название, год издания, местоположение (номер стеллажа, шкафа и т.п.).Количество записей произвольное
Б. Написать программу, выдающую информацию следующего
вида:
- местонахождение книги автора Х названия Y. Значения Х, Y ввести с терминала;
- список книг автора Z, находящийся в коллекции;
- число книг издания ХХ года , имеющееся в библиотеке.

Задачи на проектирование БД
Используя файловый тип данных, создать файл записей, который содержит требуемую в задании информацию. Вывести содержимое файла на экран для контроля.
Для кассового отдела торгового предприятия спроекти¬ровать БД по сбору информации о реализуемых товарах и по¬ступающих суммах от продаж.

[Hector]

Allkz, где учишься?

[Allkz]

в Казахстане в городе Шымкент там есть колледж Поллитех называеться вот там и учусь) а че?

[Hector]

У меня задания почти такие же, тока в Гомеле, Беларусь

[Allkz]

ааа ясно)

[GreyObr]

Определить:
а) среднее арифметическое элементов главной диагонали квадратной матрицы;
s:=0;
for i:=1 to n do
s:=s+a[i,i];
sr_arifmetic:=s/n

Определить:
б) среднее арифметическое элементов побочной диагонали квадратной матрицы
s:=0;
for i:=1 to n do
s:=s+a[n-i+1,i];
sr_arifmetic:=s/n

[Delirium]

GreyObr, в следующий раз оформляйте исходный код тегами, для лучшего чтения.

[GreyObr]

Записи
Имеется информация о количестве осадков, выпавших за день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое – в виде дождя.(Считать, что идёт дождь, если температура воздуха выше 0). »


const
n=31;{кол-во дней в месяце}

type
day = record
osadki : byte;
temp : shortint;
end;

var
d: array [1..n] of day;
sum_dojd, sum_sneg:word;{кол-во снега и дождя за месяц}

begin
{ввод данных по кол-ву осадков на каждый день}
for i:=1 to n do
begin
writeln('введите кол-во осадков и температуру в ',i,'-й день:');
readln(d[i].osadki, d[i].temp)
end;

sum_dojd := 0;
sum_sneg := 0;
for i:=1 to n do
if d[i].temp > 0 then sum_dojd := sum_dojd + d[i].osadki
else sum_sneg := sum_sneg + d[i].osadki;

writeln('дождя за месяц:',sum_dojd);
writeln('снега за месяц:',sum_sneg);
end.