//PascalABC.NET 3.1 сборка 1200 begin // создаем массив и заполняем случайными числами от -50 до 50 var a := ArrRandom(ReadInteger('n='), -50, 50); //выводим массив a.Println; //находим индекс максимального элемента var max := a.IndexMax(); // выводим значение макс. элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); // заменяем максимальный элемент минимумом a[max] := -50; //находим индекс второго максимального элемента (на данный момент уже первого) max := a.IndexMax; // выводим значение элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); end.
1) Тот или то, что выполняет алгоритм. 2) Основные свойства алгоритма-Дискретность (последовательность, прерывистость). Детерменированность (При одинаковом наборе данных неважно где и когда будет выполнен алгоритм). Результативность (при выполнение действий состовляющих правельный алгоритм будет получен определенный результат). Массовость (один и тот же алгоритм подходит для решения однотипных задач с разным набором начальных данных). еще Коректность и конечность. 3)-дворник -водитель -бухгалтер -коммисия -ученик -учитель
===== PascalABC.NET =====
begin
var D := new Dictionary<char, integer>; // словарь
var s := ReadlnString('Введите текст:') // ввести строку текста
.ToLower // перекодировать буквы к нижнему регистру
.Where(c -> c.IsLetter); // отобрать только буквы
foreach var c in s do // повторить для каждого символа в строке
if D.ContainsKey(c) then // если символ уже встречался
D[c] += 1 // увеличить его счетчик на 1
else // в противном случае
D.Add(c, 1); // добавить символ в словарь со счетчиком 1
D.Where(p -> p.Value > 1) // отобрать элементы словаря со счетчиком > 1
.Select(p -> p.Key) // выбрать сами символы
.OrderBy(p -> p) // отсортировать по алфавиту
.Println(' ') // вывести через пробел в строку
end.