var a: array[1..nn] of integer; b: array[1..10] of integer; { для номеров минимальных четных } n, i, km, min, max, t1, t2: integer;
begin Randomize; Write('Укажите количество элементов массива (не более 50): '); Readln(n); Writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(76) - 43; Write(a[i]:4); end; Writeln; Writeln('1. Массив со сдвинутыми влево на 2 элементами'); t1 := a[1]; t2 := a[2]; for i := 1 to n - 2 do begin a[i] := a[i + 2]; Write(a[i]:4); end; a[n - 1] := t1; a[n] := t2; Writeln(a[n - 1]:4, a[n]:4); Writeln('2. Минимальные четные элементы массива'); min := 100; for i := 1 to n do if (i mod 2 = 0) then if min > a[i] then begin min := a[i]; km := 1; b[km] := i end else if min = a[i] then begin km := km + 1; b[km] := i end; Write('Значение: ', min, ', индексы:'); for i := 1 to km do Write(b[i]:3); Writeln; Writeln('3. Поменять местами максимальный и последний элементы массива'); max := -100; for i := 1 to n do if max < a[i] then begin max := a[i]; b[1] := i end; t1 := a[b[1]]; a[b[1]] := a[n]; a[n] := t1; for i := 1 to n do Write(a[i]:4); Writeln; Writeln('4. Найти среднее арифметическое элементов массива'); t1 := 0; for i := 1 to n do t1 := t1 + a[i]; Writeln('Среднее арифметическое равно ', t1 / n) end.
Тестовое решение: Укажите количество элементов массива (не более 50): 30 Исходный массив 31 -41 -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 1. Массив со сдвинутыми влево на 2 элементами -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 31 -41 2. Минимальные четные элементы массива Значение: -43, индексы: 10 24 3. Поменять местами максимальный и последний элементы массива -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 -41 31 4. Найти среднее арифметическое элементов массива Среднее арифметическое равно -5.4
WordPad представляет собой текстовый редактор для работы с небольшими документами. Он допускает несложное форматирования абзацев, а также использование различных шрифтов и начертаний.Текстовый редактор WordPad входит в базовый состав Windows 95,98.Запуск происходит с использованием главного меню: (Пуск ®Программы ®Стандартные ®Текстовый редактор WordPad.Текстовый редактор WordPad реализует основные функции текстового редактора. Поддерживает технологию вставки объектов из других приложений Windows 95,98. Выпускает файлы в формате Word.Стандартная программа WordPad на деле является очень упрощенной версией профессионального текстового процессора Word, выпускаемого компанией Microsoft. Microsoft Word - самый популярный на рынке программных продуктов текстовый процессор для Windows. Word предоставляет невиданные ранее возможности обработки текстов с множества инструментов, что значительно облегчает выполнение форматирования. Последняя версия программы носит название Word 97, но в эксплуатации находятся также версии Word 95 и еще более ранняя версия Word 6.0. Программа WordPad.Текстовый редактор WordPad предоставляет возможности создания несложных форматированных текстов и является упрощенным вариантом профессионального редактора Word. Редактор WordPad запускается из основного меню Пуск выбором команды Программы - Стандартные - Текстовый редактор WordPad. Пользовательский интерфейс WordPad является стандартным для Windows-приложений и включает в себя строку меню, стандартную панель инструментов, панель инструментов для форматирования текста, размерную линейку и строку состояния.Важнейшие из команд редактора продублированы пиктограммами инструментальных панелей. Например:· пиктограмма в виде чистого листа означает команду Создать для создания нового пустого документа · пиктограмма в виде открывающейся папки означает команду Открыть для активизации существующего документа · пиктограмма в виде дискеты означает запись документа в дисковый файл (Сохранить) · пиктограмма в виде ножниц - вырезание отмеченного фрагмента текста · пиктограмма в виде бинокля - поиск заданного фрагмента текста Совершенно очевидно назначение пиктограмм с разными стилями букв и разным видом выравнивания текстов - по правой кромке, по середине и по левой кромке.Запустить WordPad можно из главного меню [Programs/Accessories] WordPad представляет собой текстовый редактор для работы с небольшими документами. Он допускает несложное форматирования абзацев, а также использование различных шрифтов и начертаний. Узнать о редакторе WordPad больше позволяет меню "?".Использование справки текстового редактора WordPad подразделяется на следующие пункты: Работа с документами· Создание нового документа · Сохранение измененного документа · Открытие документа Настройка окна WordPad· Отображение панели инструментов · Отображение панели форматирования · Отображение линейки · Отображение строки состояния Работа с текстом· Копирование данных из одного документа в другой · Перемещение данных из одного документа в другой · Отмена последнего действия · Удаление текста · Поиск текста · Поиск и замена текста · Вставка текущей даты и времениФорматирование текста· Изменение режима переноса текста · Создание маркированного списка · Изменение шрифта · Формат абзаца · Табуляция
nn = 50;
var
a: array[1..nn] of integer;
b: array[1..10] of integer; { для номеров минимальных четных }
n, i, km, min, max, t1, t2: integer;
begin
Randomize;
Write('Укажите количество элементов массива (не более 50): ');
Readln(n);
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(76) - 43;
Write(a[i]:4);
end;
Writeln;
Writeln('1. Массив со сдвинутыми влево на 2 элементами');
t1 := a[1]; t2 := a[2];
for i := 1 to n - 2 do
begin
a[i] := a[i + 2];
Write(a[i]:4);
end;
a[n - 1] := t1; a[n] := t2;
Writeln(a[n - 1]:4, a[n]:4);
Writeln('2. Минимальные четные элементы массива');
min := 100;
for i := 1 to n do
if (i mod 2 = 0) then
if min > a[i] then begin min := a[i]; km := 1; b[km] := i end
else if min = a[i] then begin km := km + 1; b[km] := i end;
Write('Значение: ', min, ', индексы:');
for i := 1 to km do Write(b[i]:3);
Writeln;
Writeln('3. Поменять местами максимальный и последний элементы массива');
max := -100;
for i := 1 to n do
if max < a[i] then begin max := a[i]; b[1] := i end;
t1 := a[b[1]]; a[b[1]] := a[n]; a[n] := t1;
for i := 1 to n do Write(a[i]:4);
Writeln;
Writeln('4. Найти среднее арифметическое элементов массива');
t1 := 0;
for i := 1 to n do t1 := t1 + a[i];
Writeln('Среднее арифметическое равно ', t1 / n)
end.
Тестовое решение:
Укажите количество элементов массива (не более 50): 30
Исходный массив
31 -41 -18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9
1. Массив со сдвинутыми влево на 2 элементами
-18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 31 -41
2. Минимальные четные элементы массива
Значение: -43, индексы: 10 24
3. Поменять местами максимальный и последний элементы массива
-18 -42 -15 -10 -8 -18 -30 21 -6 -43 -32 -18 -30 26 -37 20 29 18 26 21 29 22 -23 -43 29 30 -41 -9 -41 31
4. Найти среднее арифметическое элементов массива
Среднее арифметическое равно -5.4