Решить в системи с++. Проводились выборы лучшего ученика года в классе. Оценивались следующие параметры: успеваемость по 3 основным предметам, количество призовых мест на олимпиадах и количество призовых мест на конкурсе-защите МАН. Определить:

­ средний класса по каждому предмету;

­ лучшего ученика года, исходя из оценок;

­ для каждого учащегося средний по основным предметам;

­ количество неуспевающих учащихся (с оценками ниже 4);

­ сформировать из данных минимальную квадратную матрицу (недостающие элементы заменить 0), вывести в виде таблицы; найти суму элементов, оказавшихся на побочной диагонали.

Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.

Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:

- Что же такое интернет,

- Использование интернета в жизни людей,

- Как интернет влияет на людей,

- Интернет для ребенка,

- Можем ли мы прожить без интернета,

- Интернет в отдельном школьном классе,

- Личное отношение автора к интернету.

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.