Решить по паскалю: 1. модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива 2. напишите программу, которая бы определяла среднее арифметическое значение элементов массива (вещественная величина типа real) начало: var a: array[1..10] of integer; i: integer; begin а как дальше? предыдущий пример: var a: array[1..10] of integer; i: integer; begin randomize; for i: =1 to 10 do begina[i]: =random(40)-20; end; for i: =1write(a[i]: 4); end.

Const   n = 10; var   a: array[1..n] of integer;   i, k, min, max: integer; begin   randomize;   min : = 100; max : = -100;   writeln('исходный массив');   for i : = 1 to n do   begin       k : = random(40) - 20;       a[i] : = n;       if max < k then max : = k       else if min > k then min : = k;       write(k, ' ')   end;   writeln;   writeln('min=', min, ', max=', max) end. тестовое решение: исходный массив -8 3 19 -14 19 13 -17 -2 8 8 min=-17, max=19 const   n = 10; var   a: array[1..n] of integer;   i, k, s: integer; begin   randomize;   s : = 0;   writeln('исходный массив');   for i : = 1 to n do   begin       k : = random(40) - 20;       a[i] : = n; s : = s + k;       write(k, ' ')   end;   writeln;   writeln('среднее арифметическое равно ', s / k) end. тестовое решение: исходный массив 19 11 -1 1 -4 -6 -2 18 3 8 среднее арифметическое равно 5.875

Що ж таке зведені таблиці, і навіщо вони потрібні? Ми часто стикаємося з ситуаціями, коли у нас є багато різноманітних даних (які можна назвати статистичними), але нас цікавлять якісь загальні висновки або проміжні підсумки.

Наприклад, у нас є інформація про продажі мобільних телефонів в мережі магазинів мобільного зв'язку. Всього в мережі є три магазини, які щодня повідомляють нам, які моделі телефонів вони продали, в якій кількості та за якою ціною.

За 17 днів продажів у нас вийшла велика таблиця на 350 записів. Але ця таблиця не вирішує наших проблем. Нам необхідно дізнатися обсяги продажів у грошовому та кількісному виразі по датах і по окремих магазинах, але як це зробити? Сортувати таблицю і підсумовувати окремі її частини? Це вимагає часу, а завтра надійдуть нові дані, і всю роботу потрібно буде знову повторити.

Ось тут нам може до зведена таблиця (ілюстрація готового зразка на іншому аркуші). За до простого діалогового вікна ми створюємо нашу першу зведену таблицю. У цій таблиці ми групуємо дані по стовпцях Дата і Точка продажу, та зазначаємо, що потрібно підсумовувати дані зі стовпців Обсяг продажів, шт. і Сума виручки

Объяснение:

Вравностороннем треугольнике все три угла равны между собой и равны 60 градусов. в равнобедренном треугольнике два угла равны между собой и оба острые. в прочих треугольников значения всех трех углов различаются между собой. эффективность алгоритма решения напрямую зависит от того, насколько успешно производится сравнение углов. первый вариант программы (логика если-то-иначе) program v1; var   a, b, c: real; begin   write('введите значения углов треугольника в градусах: ');   readln(a, b, c);   if a = b then       if a = c then writeln('треугольник равносторонний')       else writeln('треугольник равнобедренный')   else   if a = c then writeln('треугольник равнобедренный')       else   if b = c then writeln('треугольник равнобедренный')   else writeln('все стороны треугольника имеют различную длину') end. второй вариант программы (логические выражения) program v2; var   a, b, c: real; begin   write('введите значения углов треугольника в градусах: ');   readln(a, b, c);   if (a = b) and (a = c) then writeln('треугольник равносторонний')   else   if (a = b) or (a = c) or (b = c) then writeln('треугольник равнобедренный')   else writeln('все стороны треугольника имеют различную длину') end. тестовое решение: введите значения углов треугольника в градусах: 75 30 75 треугольник равнобедренный