В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение - Turbo Pascal

  1. в квадратном числовом массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение.


textual

Код к задаче: «В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение - Turbo Pascal»

uses crt;
const n=4 ;
var a,b:array[1..т,1..n] of integer;
i,j,idx1,idx2,idx3,idx4,max,min,k:integer;
BEGIN
clrscr;
 for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(10)+7;
 
   for i:=1 to n do
    begin
    for j:=1 to n do
     write(a[i,j]:4);
      writeln;
      end;
       writeln;
 
       min:=a[1,1];idx1:=1;idx2:=1;
       max:=a[1,1];idx3:=1;idx4:=1;
       for i:=1 to n do
        for j:=1 to n do
         if a[i,j]>max then
         begin
          max:=a[i,j];
          idx1:=i;
          idx2:=j;
          end
           else
            if a[i,j]<min then
             begin
              min:=a[i,j];
              idx3:=i;
              idx4:=j;
              end;
            writeln('MAX = ',max,' координаты  ',idx1,' ',idx2);
            writeln('MIN = ',min,' координаты  ',idx3,' ',idx4);
            writeln;
 
 
 
 
readkey;
END.

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

6   голосов, оценка 4.167 из 5



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

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

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

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

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

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

  1. Ребят , что будет , если написать s:=random не указывая в скобках диапазона , будет ли корректно вычисление и какой диапазон будет по умолчанию ?

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

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

  1. В произвольном одномерном массиве все элементы значения которых больше 5 заменить на 15. Вывести номера этих элементов и найти количество элементов которые не удовлетворяют данному условию