Создать структуру таблицы базы данных “Телефонный справочник”. Представить таблицу в режиме Конструктора (с указанием названий полей и типов данных) и в режиме отображения данных.
Телефон
Фамилия И.О.
Адрес
2126374
Котин У.Г.
пр. Рокоссовского 3–73
2223344
Андреев А.А.
пр.Пушкина 23–33
2223449
Борисов Д.А.
ул.Плеханова 5–113
2263869
Борисевич Г.Н.
ул.Плеханова 12–13
2324354
Андреев Б.С.
ул.Сердича 13–89
2336348
Антонов А.Н.
пр.Партизанский 7–45
2574729
Кукин Б.И.
ул.Серова 17–89
2437384
Яшин Р.А.
ул.Жилуновича 30–16
Выделить записи из справочника при расширенного фильтра (меню Данные /Фильтр):
Выделить записи, у которых номер телефона содержит во второй группе цифры 50 или 30, например, 260–50–40,
Затем среди выделенных записей выделить записи, в которых фамилия начинается с букв «Ан»,
Выделенные записи показать в виде таблицы.
function Avg(a:array[,] of integer):real;
begin
var s:=0; var k:=0;
foreach var e:integer in a do
if e>0 then begin s+=e; Inc(k) end;
if k>0 then Result:=s/k else Result:=1e-100;
end;
begin
var A:=MatrixRandom(4,4,-50,50); Writeln(A);
Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
var B:=MatrixRandom(5,5,-30,30); Writeln(B);
Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
var C:=MatrixRandom(4,5,-25,38); Writeln(C);
Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.
Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200