profile="http://gmpg.org/xfn/11"> НуТна ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°. Π—Π°Π΄Π°Ρ‡Π° Π² ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅ прСдлагаСтся ввСсти 10 чисСл с ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Ρ‹. НСобходимо Π½Π°ΠΉΡ‚ΠΈ Π½ΠΎΠΌΠ΅Ρ€ максимального элСмСнта ΠΈ минимального. Если Π΅ΡΡ‚ΡŒ нСсколько, вывСсти всС Π½ΠΎΠΌΠ΅Ρ€Π°. Бпасибо. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

НуТна ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°. Π—Π°Π΄Π°Ρ‡Π° Π² ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅ прСдлагаСтся ввСсти 10 чисСл с ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Ρ‹. НСобходимо Π½Π°ΠΉΡ‚ΠΈ Π½ΠΎΠΌΠ΅Ρ€ максимального элСмСнта ΠΈ минимального. Если Π΅ΡΡ‚ΡŒ нСсколько, вывСсти всС Π½ΠΎΠΌΠ΅Ρ€Π°. Бпасибо.

НуТна ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°. Π—Π°Π΄Π°Ρ‡Π° Π² ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅ прСдлагаСтся ввСсти 10 чисСл с ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Ρ‹. НСобходимо Π½Π°ΠΉΡ‚ΠΈ Π½ΠΎΠΌΠ΅Ρ€ максимального элСмСнта ΠΈ минимального. Если Π΅ΡΡ‚ΡŒ нСсколько, вывСсти всС Π½ΠΎΠΌΠ΅Ρ€Π°. Бпасибо.
Π—Π°Π΄Π°Ρ‡Π°: НСобходимо Π½Π°ΠΉΡ‚ΠΈ всС Π½ΠΎΠΌΠ΅Ρ€Π° максимального элСмСнта ΠΈ минимального элСмСнта Π² массивС. Паскаль..
Π‘ΠΎΠ·Π΄Π°Π΅ΠΌ ΠΎΠ΄ΠΈΠ½ массив, Π½Π°Ρ…ΠΎΠ΄ΠΈΠΌ минимальноС число Π² массивС, Ρ‚Π°ΠΊ ΠΆΠ΅ Π½Π°Ρ…ΠΎΠ΄ΠΈΠΌ максимальноС число. Π—Π°Ρ‚Π΅ΠΌ Π² Ρ†ΠΈΠΊΠ»Π΅ сравниваСм число массива с ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΌ числом, ΠΏΡ€ΠΈ равСнствС числС Π²Ρ‹Π²ΠΎΠ΄ΠΈΠΌ Π½Π° экран Π½ΠΎΠΌΠ΅Ρ€ массива. Π’Π΅ ΠΆΠ΅ дСйствия с ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΌ числом Π²ΠΎ Π²Ρ‚ΠΎΡ€ΠΎΠΌ Ρ†ΠΈΠΊΠ»Π΅.

program Arr_Task1;

  { НСобходимо Π½Π°ΠΉΡ‚ΠΈ всС Π½ΠΎΠΌΠ΅Ρ€Π° максимального элСмСнта ΠΈ минимального элСмСнта Π² массивС. Паскаль}
var
  i, MinNum, MaxNum: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Π’Π²Π΅Π΄ΠΈΡ‚Π΅ 10 чисСл: ');
  for i := 1 to 10 do
  begin
    Readln(i_ArrNum[i]);
  end;
  MinNum := i_ArrNum[1];
  MaxNum := i_ArrNum[1];
  for i := 1 to 10 do
  begin
    if i_ArrNum[i] < MinNum then
      MinNum := i_ArrNum[i];
    if i_ArrNum[i] > MaxNum then
      MaxNum := i_ArrNum[i];
  end;

  WriteLn('Мин число: ', MinNum);
  WriteLn('Макс число: ', MaxNum);
  for i := 1 to 10 do
  begin
    if i_ArrNum[i] = MinNum then
      WriteLn('НомСр минимального числа: ', i);
  end;
  for i := 1 to 10 do
  begin
    if i_ArrNum[i] = MaxNum then
      WriteLn('НомСр максимального числа: ', i);
  end;
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
НСобходимо Π½Π°ΠΉΡ‚ΠΈ всС Π½ΠΎΠΌΠ΅Ρ€Π° максимального элСмСнта ΠΈ минимального элСмСнта Π² массивС. Паскаль
НСобходимо Π½Π°ΠΉΡ‚ΠΈ всС Π½ΠΎΠΌΠ΅Ρ€Π° максимального элСмСнта ΠΈ минимального элСмСнта Π² массивС. Паскаль.

Π”ΠΎΠΏΠΎΠ»Π½ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ:
Найти сумму элСмСнтов массива паскаль (pascal).
Найти ΠΌΠΈΠ½ΠΈΠΌΡƒΠΌ ΠΈ максимум Π² массивС – Pascal (Паскаль).
Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами Π² паскалС.
Π‘ΡƒΠΌΠΌΠ° элСмСнтов (чисСл) массива паскаль, random.
Π‘ΡƒΠΌΠΌΠ° элСмСнтов массива, паскаль.
Как вывСсти Ρ‚Π°Π±Π»ΠΈΡ†Ρƒ символов Π² ПаскалС?

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.