<em>Архитектор</em> - проектирование новых зданий и сооружений,создание чертежей.
<em>Библиотекарь</em> - Формирование каталогов;хранение книг,газет и журналов в электронной форме;быстрый поиск и доступ к нужному материалу.
<em>Бухгалтер</em> - Быстрый расчет заработной платы,учет доходов и налогов,подготовка документации.
<em>Врач</em> - Обследование,диагностика,назначение лечения.
<em>Дизайнер</em> - Создание интерьеров,подбор фактуры и цвета отделочных материалов,расположение предметов.
<em>Композитор</em> - Создание,обработка,исполнение музыкальных композиций.
<em>Конструктор</em> - Проектирование и расчет характеристик новых механизмов и конструкций.
<em>Модельер</em> - Разработка новых моделей одежды и обуви,подготовка выкроек.
<em>Мультипликатор</em> - Создание новых изображений,изменение имеющихся рисунков и фотографий.
<em>Учитель</em> - Демонстрация изучаемого материала в наглядной форме,проведение экспериментов,проверка знаний.
Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
