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

Блок-схема - в прилагаемом файле.

Объяснение:

формировать понятие "сортировка информации"; рассмотреть виды сортировок; познакомить с алгоритмом простой и вложенной сортировок; научить сортировать данные в Microsoft Access; формировать умение работать с конструктором запросов; развивать навыки по заполнению и редактированию базы данных.

Развивающие: развивать алгоритмическое и логическое мышление; развивать умение работать в группе; развивать умение анализировать результаты своей работы.

Воспитательные: Воспитывать чувства коллективизма, ответственности, аккуратности.

думаю правильно

var

  s1, s2: string;

  i, n1, n2: integer;

 

begin

  writeln('Введите первое слово');

  readln(s1);

  writeln('Введите второе слово');

  readln(s2);

  writeln('Объединение слов:  ', s1 + s2);

  writeln('Длина первого слова:  ', length(s1));

  writeln('Длина второго слова:  ', length(s2));

  for i:= 1 to length(s1) do

    if s1[i] = 'а' then inc(n1);

  for i:= 1 to length(s2) do 

    if s2[i] = 'a' then inc(n2);

  writeln('В первом слове ', n1, ' букв "а" ');

  writeln('Во втором слове ', n2, ' букв "а" ');

  writeln('Первые 5 букв первого слова:  ', copy(s1, 1, 5));

  writeln('Первые 5 букв второго слова:  ', copy(s2, 1, 5));

  delete(s1, length(s1) - 4, 5);

  delete(s2, length(s2) - 4, 5);

  writeln('Результат удаления последних 5 букв первого слова:  ', s1);

  writeln('Результат удаления последних 5 букв второго слова:  ', s2);

end.