Дано масив розміру N. Поміняти місцями його мінімальний і максимальний елементи. Порядок виконання роботи:
1. Масиви потрібного типу сформувати за до генератора випадкових
чисел і вивести на екран.
2. При обробці сформованого масиву – розв’язуванні задач – не
використовувати оператор індексування [ ], працювати тільки через
покажчик на масив.
Программа предлагает исправить слово с ошибками, только при одном условии, если оно есть в словаре этой программы.
Проверка правописания знает не все слова в мире, а только те, которые ей ввел разработчик, поэтому некоторые слова программа исправить не сможет.
Зеленая - это синтаксическая ошибка допущена, не поставлена запятая и т.п.,
Красная - это орфографическая ошибка, то есть, ошибка в правописании.
Чтобы удалить один символ во всех словах, нужно нажать сочетание клавишь CTRL + F, если она не работает, то CTRL + H, тогда мы вводим символ, которых хотим найти, далее вводим в бланк "Заменить" пробел.
Чтобы удалить все лишние пробелы в документе замена двух пробелов подряд на один пробел (учтите, что в полях Найти и Заменить на пробелы вы не увидите). Процедуру повторить несколько раз. Это избавиться от нескольких пробелов между словами, но в начале строки останется один пробел.
Вариант, когда массив заполняется случайными числами:
var A: array [1..10] of integer;
var i,max,min: integer;
begin
max:=1;
min:=1;
randomize();
for i:=1 to 10 do
begin
A[i]:=random(100);
write(A[i],' ');
if (A[i]>A[max]) then max:=i;
if (A[i]<A[min]) then min:=i;
end;
writeln();
writeln('Минимальный элемент: ',A[min]);
writeln('максимальный элемент: ',A[max]);
end.
Вариант, когда массив вводится с клавиатуры:
var A: array [1..10] of integer;
var i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 10 do
begin
readln(A[i]);
if (A[i]>A[max]) then max:=i;
if (A[i]<A[min]) then min:=i;
end;
writeln();
writeln('Минимальный элемент: ',A[min]);
writeln('максимальный элемент: ',A[max]);
end.