Дано пять чисел. определить максимальное из них.определить функцию, находящую максимум из двух различных чисел. мне нужно сделать эту через процедуру и функцию. я сделал для функции вот так: var a: array[1..5]of integer; i, j, max: integer; function f(a, b: integer): integer; begin if a> b then result: =a else result: =b; end; begin for i: =1 to 5 do begin a[i]: =random(10); end; writeln; max: =a[1]; for i: =1 to 5 do for j: =i+1 to 5 do if f(a[i], a[j])> max then max: =f(a[i], a[j]); writeln('max=', max); end. а училка говорит что здесь массивы вообще не нужны, и то что функция у меня в не используется. вопрос как сделать так чтобы функция использовалась. не могу понять как сделать по другому. !

Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
end.

// PascalABC.Net 3.0, cборка 1052
var
  a: integer;
  i, j, max: integer;

function f(a, b: integer): integer;
begin
  if a > b then result := a else result := b
end;

begin
  Randomize;
  max:=-1;
  Write('Набор чисел: ');
  for i := 1 to 5 do
  begin
    a:= random(10);
    Write(a,' ');
    max:=f(max,a)
  end;
  Writeln(#13#10,'Максимальное число равно ',max)
end.

Тестовое решение:
Набор чисел: 6 8 5 1 2
Максимальное число равно 8

Объяснение:

Очень часто возникает необходимость ввести в компьютер несколько страниц текста из книги, статью из журнала или газеты и т. д. Конечно, можно затратить определённое время и набрать этот текст с клавиатуры. Но чем больше исходный текст, тем больше времени будет затрачено на его ввод в память компьютера.

Судите сами. Предположим, кто-то из ваших одноклассников, освоивших клавиатурный тренажёр, может вводить текстовую информацию со скоростью 150 символов в минуту. Выясним, сколько времени ему понадобится для того, чтобы ввести в память компьютера текст романа А. Дюма «Три мушкетёра». Одно из изданий этого романа выполнено на 590 страницах; каждая страница содержит 48 строк, в каждую строку входит в среднем 53 символа.

Вычислим общее количество символов в романе:

590 • 48 • 53 = 1 500 960 символов.

Вычислим время, необходимое для ввода этого массива символов в память компьютера: 1 500 960 : 150 ≈ 10 000 мин. А это приблизительно 167 часов.

При этом мы не обсуждаем во о времени на исправление возможных ошибок при таком ввода текста, не принимаем в расчёт усталость человека.

Для ввода текстов в память компьютера с бумажных носителей используют сканеры и программы распознавания символов. Одной из наиболее известных программ такого типа является ABBYY FineReader. Упрощённо работу с подобными программами можно представить так:

1. Бумажный носитель помещается под крышку сканера. 

2. В программе отдаётся команда Сканировать и распознать. Сначала создаётся цифровая копия исходного документа в формате графического изображения. Затем программа анализирует структуру документа, выделяя на его страницах блоки текста, таблицы, картинки и т. п. Строки разбиваются на слова, а слова — на отдельные буквы. После этого программа сравнивает найденные символы с шаблонными изображениями букв и цифр, хранящимися в её памяти. Программа рассматривает различные варианты разделения строк на слова и слов на символы. В программу встроены словари, обеспечивающие более точный анализ и распознавание, а также проверку распознанного текста. Проанализировав огромное число возможных вариантов, программа принимает окончательное решение и выдает пользователю распознанный текст. 

3. Распознанный текст переносится в окно текстового редактора (например, Microsoft Word).

Вместо сканера можно использовать цифровой фотоаппарат или камеру мобильного телефона. Например, при работе с книгами в библиотеке вы можете сфотографировать интересующие вас страницы. Скопировав снимки на компьютер, вы можете запустить ABBYY FineReader, распознать тексты и продолжить работу с ними в текстовом процессоре                                                                                                                              

Возможности современных компьютеров по хранению больших массивов информации и осуществлению в них быстрого поиска положены в основу разработки компьютерных словарей и программ-переводчиков. Компьютерные словари выполняют перевод отдельных слов и словосочетаний. Для перевода текстовых документов применяются программы-переводчики.

Подробнее - на -

Выступление перед аудиторией порой вызывает немало хлопот даже у людей опытных, не говоря уже о новичках, делающих «первые шаги». Успех выступления зависит от многих факторов, где содержание доклада играет одну из ключевых ролей.

Когда докладчик часто заглядывает, а то и напропалую читает текст, не отрываясь от него ни на минуту, между ним и публикой не происходит контакта. Внимание аудитории быстро рассеивается, направляясь на что угодно, только не на докладчика.

Что же теперь выучить весь текст наизусть, с вы? А если речь идет о защите дипломной работы в какой-нибудь. Вовсе нет. Мало кто располагает достаточным количеством времени, чтобы запомнить всю речь. Кроме того многие доклады изобилуют цифрами, в которых лучше не ошибаться. Получается, что текст все же лучше читать. Но что в таком случае делать, чтобы не потерять визуальный контакт с публикой? Лучше всего прибегнуть к приему, которым пользуются дикторы телевидения. Для этого нужно читать лишь первые слова предложения, запоминая последующие, которые уже следует произносить, глядя в зрительный зал.

Естественно, для того чтобы выступать уверенно, необходимо хорошо знать содержание текста, поэтому одной репетицией здесь не обойтись. Следует несколько раз прочитать доклад, причем делая это вслух, громко и четко.

Как правило, докладчику для выступления предоставляют кафедру, на которой можно удобно разместить текст доклада. При желании текст можно взять в руку. Только, в этом случае, заглядывать в текст следует как можно реже.

Я сларалась) оцени)  :>