ohussyev
?>

Создать структуру таблицы базы данных “Телефонный справочник”. Представить таблицу в режиме Конструктора (с указанием названий полей и типов данных) и в режиме отображения данных. Телефон Фамилия И.О. Адрес 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, Затем среди выделенных записей выделить записи, в которых фамилия начинается с букв «Ан», Выделенные записи показать в виде таблицы.

Информатика

Ответы

Logukate
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
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
oksana-popova
Не самый лёгкий, но работающий

const  n = 10000;//Не изменяемая по ходу программы переменная
var  a: array[1..n] of integer;  b: array[1..10]of integer;  c: array[1..10]of integer;  i, s, v: integer;
begin  for i := 1 to 10 do //Заполнение массива с числами от 1 до 10    c[i] := i;  for i := 1 to n do //Заполнение массива    a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей  for i := 1 to n do    case a[i] of      1: b[1] := b[1] + 1;      2: b[2] := b[2] + 1;      3: b[3] := b[3] + 1;      4: b[4] := b[4] + 1;      5: b[5] := b[5] + 1;      6: b[6] := b[6] + 1;      7: b[7] := b[7] + 1;      8: b[8] := b[8] + 1;      9: b[9] := b[9] + 1;      10: b[10] := b[10] + 1;    End;    for i := 1 to 10 do    for s := 1 to 9 do      if b[s] > b[s + 1] then begin        v := b[s];        b[s] := b[s + 1];        b[s + 1] := v;        v := c[s];        c[s] := c[s + 1];        c[s + 1] := v;      end;  writeln(c[10], ' - их ', b[10]);    end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Создать структуру таблицы базы данных “Телефонный справочник”. Представить таблицу в режиме Конструктора (с указанием названий полей и типов данных) и в режиме отображения данных. Телефон Фамилия И.О. Адрес 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, Затем среди выделенных записей выделить записи, в которых фамилия начинается с букв «Ан», Выделенные записи показать в виде таблицы.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

yastrik
fullhouse9991
AleksandraRuslan504
olma-nn477
Диана-Николаевна377
Olegovna Volkov
sgritsaev
kristal1
gav973
romolga3580
Смирнов_Андрей691
olgavbaranova
anton1969026203
Алиференко_Елена342
Faed_Arakcheeva