Question

6. В массиве С из 25 вещественных элементов из диапазона [-10;7] вывести на экран номера тех элементов, которые находятся после максимального элемента. ПАСКАЛЬ. СРОЧНО ПЖ МНЕ НАДО ЗАВТРА ЛАБУ СДАВАТЬ :С

Answer 1

program prog;

var

c:array[1..25] of integer;

k,i,max:integer;

begin

   k:=0;

   max:=0;

   for i:=1 to 25 do begin

       c[i]:=random(-17)+7;

       write(c[i], ' ');

       if c[i] > max then begin

           max:=c[i];

           k:=i;

       end;

   end;

   writeln();

   if k<25 then begin

       for i:=k+1 to 25 do begin

           write(i, ' ');

       end;

   end

   else write('Самое большое число стоит на последнем месте.');

end.

Answer 2

Если хочется давать решения быстро, надо писать не на ТурбоПаскаль, а на PascalАВС.NЕТ:

##

var n := 25;

var c := SeqRandom(n, -100, 70).Select(t -> t / 10).ToArray;

c.Println;

var i := c.IndexMax;

if i < n - 1 then

 Range(i + 2, n).Print

Answer 3

Для решения этой задачи на Pascal, вам нужно сначала заполнить массив C случайными вещественными числами из заданного диапазона [-10;7], затем найти максимальный элемент и, наконец, вывести на экран номера элементов, которые находятся после максимального элемента. Вот пример программы на Pascal:

pascalCopy code
program MaxAfterMax;

const
  N = 25; // Размер массива
  MinValue = -10; // Минимальное значение элемента
  MaxValue = 7;   // Максимальное значение элемента

var
  C: array[1..N] of real;
  i, maxIndex: integer;
  maxValue: real;

begin
  // Заполняем массив C случайными вещественными числами из заданного диапазона
  Randomize;
  for i := 1 to N do
    C[i] := Random * (MaxValue - MinValue) + MinValue;

  // Ищем максимальный элемент и его индекс
  maxValue := C[1];
  maxIndex := 1;
  for i := 2 to N do
  begin
    if C[i] > maxValue then
    begin
      maxValue := C[i];
      maxIndex := i;
    end;
  end;

  // Выводим номера элементов, которые находятся после максимального элемента
  writeln('Максимальный элемент: ', maxValue, ', его номер: ', maxIndex);
  writeln('Номера элементов, которые находятся после максимального:');
  for i := maxIndex + 1 to N do
    writeln(i);

  readln;
end.

Эта программа создает массив C, находит максимальный элемент и выводит номера элементов, которые находятся после него. Убедитесь, что вам доступен компилятор Pascal для выполнения этой программы.