Question

Ребят нужно на СИ++ и на паскаль! Заполнить массив случайными числами и найти два максимальных элемента массива и их номера. пример: 5 5 3 4 1 Максимальный элемент: А(1)=5 Второй максимум: А(2)=5

Answer 1

Решение в прикрепленных файлах.

Answer 2

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

Пример кода на Pascal:

program MaxElements;

var 
  A: array[1..100] of integer;
  i, max1, max2, index1, index2: integer;

begin
  // Заполняем массив случайными числами
  randomize;
  for i := 1 to 10 do
  begin
    A[i] := random(10); // Генерируем случайное число от 0 до 9
    writeln('A(', i, ') = ', A[i]);
  end;

// Находим два максимальных элемента и их номера
  max1 := A[1];
  max2 := A[1];
  index1 := 1;
  index2 := 1;
  for i := 2 to 10 do
  begin
    if A[i] > max1 then
    begin
      max2 := max1;
      index2 := index1;
      max1 := A[i];
      index1 := i;
    end
    else if A[i] > max2 then
    begin
      max2 := A[i];
      index2 := i;
    end;
  end;

writeln('Максимальный элемент: A(', index1, ') = ', max1);
  writeln('Второй максимум: A(', index2, ') = ', max2);
end.

Теперь перейдем к языку программирования C++ и напишем аналогичную программу:

#include 
#include 
#include 
using namespace std;

int main() {
  int A[10];
  int max1, max2, index1, index2;

// Заполняем массив случайными числами
  srand(time(NULL));
  for (int i = 0; i < 10; i++) {
    A[i] = rand() % 10; // Генерируем случайное число от 0 до 9
    cout << "A[" << i << "] = " << A[i] << endl;
  }

// Находим два максимальных элемента и их номера
  max1 = A[0];
  max2 = A[0];
  index1 = 0;
  index2 = 0;
  for (int i = 1; i < 10; i++) {
    if (A[i] > max1) {
      max2 = max1;
      index2 = index1;
      max1 = A[i];
      index1 = i;
    }
    else if (A[i] > max2) {
      max2 = A[i];
      index2 = i;
    }
  }

cout << "Максимальный элемент: A[" << index1 << "] = " << max1 << endl;
  cout << "Второй максимум: A[" << index2 << "] = " << max2 << endl;

return 0;
}

Оба этих кода выполняют одно и то же действие: заполняют массив случайными числами, находят два максимальных элемента и их номера.