Найти в массиве наибольший и наименьший элементы и определить их индексы - Turbo Pascal

  1. Помогите пожалуйста. Ввести заданный одномерный массив из 25 элементов. Найти в нем найбольший и найменьший элементы и определить их индексы. Переименовать элементы массива в обратном порядке так, чтобы первый стал последним и наоборот. Вывести оба массива с заголовками в порядке возрастания их индексов по 5 чисел в строке.


textual

Код к задаче: «Найти в массиве наибольший и наименьший элементы и определить их индексы - Turbo Pascal»

const n=25;
var a,b:array[1..n] of integer;
i,max,min,k,m:integer;
begin
for i:=1 to n do readln(a[i];
max:=a[1]; min:=a[1]; k:=1; m:=1;
for i:=2 to n do
begin
 if max<a[i] then begin max:=a[i]; k:=i; end;
 if min>a[i] then begin min:=a[i[; m:=i; end;
end;
writeln('max=', max, ' nomer ',k);
writeln('min=', min, ' nomer ',m);
for i:=1 to n do
b[n-i+1]:=a[i];
writeln('1 massive');
for i:=1 to n do
begin write(a[i]:5); if i mod 5 =0 then writeln; end;
writeln('2 massive');
for i:=1 to n do
begin write(b[i]:5); if i mod 5 =0 then writeln; end;
readln
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5



Похожие ответы
  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. В массиве структур (записей) найти всех студентов, не имеющих двоек, и сформировать из них новый массив. Полученный массив упорядочить по возрастанию среднего балла. Структура (запись) содержит поля: фамилия, количество оценок, массив оценок (не более пяти), средний балл, который вычисляется при вводе данных. Вывести исходный и полученные массивы.

  1. Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321

  1. Составить программу. Задача. В двумерном массиве A(m,n) найти самое маленькое по модулю значение и вычесть его из всех элементов массива.

  1. Задача:Заполните массив случайными числами. Определить, есть ли в нем элементы с одинаковыми значениями, не обязательно стоящие рядом. У меня получилось так

  1. составить процедуру вычисления суммы четных по значению элементов в одномерном массиве

  1. составить функцию вычисления количества отрицательных элементов в одномерном массиве

  1. Дан файл целых чисел. Элементы могут принимать значения от 0 до 100 - баллы, полученные на ЕГЭ. Опишите алгоритм, который подсчитывает и выводит на экран наибольший балл среди учащихся, сдавшиъ экзамен на "отлично"(получивших оценку более 75 баллов), либо вывести сообщение, что таких нет

  1. В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов.

  1. Помогите, нужно найти кроме минимальных значений еще и максимальные (его адрес в массиве, и потом среди максимальных найти наибольшее значение).