profile="http://gmpg.org/xfn/11"> Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива, паскаль. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива, паскаль.

Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива, паскаль.

Π—Π°Π΄Π°Ρ‡Π° Π·Π°ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚ΡΡ Π² Π½Π°Ρ…ΠΎΠΆΠ΄Π΅Π½ΠΈΠΈ максимального элСмСнта Π² массивС.

ΠŸΠ΅Ρ€Π΅Π±ΠΈΡ€Π°Π΅ΠΌ Π² Ρ†ΠΈΠΊΠ»Π΅ всС элСмСнты массива, сравниваСм элСмСнты массива с ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ i_Max.
На ΠΏΠ΅Ρ€Π²ΠΎΠΌ шагС Π²Π²ΠΎΠ΄ΠΈΠΌ поэлСмСнтно числа Π² массив. Π—Π°Ρ‚Π΅ΠΌ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ i_Max присваиваСм Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ элСмСнта массива.
Π’ Ρ†ΠΈΠΊΠ»Π΅ сравниваСм Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ ΠΎΡ‡Π΅Ρ€Π΅Π΄Π½ΠΎΠ³ΠΎ элСмСнта массива. Если пСрСмСнная i_Max мСньшС ΠΏΠΎ Π·Π½Π°Ρ‡Π΅Π½ΠΈΡŽ элСмСнта массива, Π² это случаС i_Max присваиваСм Π½ΠΎΠ²ΠΎΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ Ρ€Π°Π²Π½ΠΎΠ΅ элСмСнту массива.

program Task_Min1;

  {Π·Π°Π΄Π°Ρ‡ΠΈ Π½Π° числа паскаль с Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅ΠΌ}
  {Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива, паскаль.}
var
  i, i_Max: integer;
  i_ArrNum: array[1..10] of integer;

begin
  WriteLn('Π—Π°Π΄Π°Ρ‡Π°, Π½Π°ΠΉΡ‚ΠΈ ΠΌΠ°ΠΊΡΠΈΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива:');
  WriteLn('Π’Π²Π΅Π΄ΠΈΡ‚Π΅ 10 (Π΄Π΅ΡΡΡ‚ΡŒ) чисСл:');
  for i := 1 to 10 do
    ReadLn(i_ArrNum[i]);
  i_Max := i_ArrNum[1];
  i := 1;
  repeat
    if i_Max < i_ArrNum[i] then
      i_Max := i_ArrNum[i];
    i := i + 1;
  until i > 10;
  WriteLn('ΠœΠ°ΠΊΡΠΈΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива = ', i_Max);

  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива, паскаль
Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива, паскаль.

Π”ΠΎΠΏΠΎΠ»Π½ΠΈΡ‚Π΅Π»ΡŒΠ½Ρ‹Π΅ ΠΌΠ°Ρ‚Π΅Ρ€ΠΈΠ°Π»Ρ‹:
Как Π½Π°ΠΉΡ‚ΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива Π² паскалС?
Найти ΠΌΠΈΠ½ΠΈΠΌΡƒΠΌ ΠΈ максимум Π² массивС β€” Pascal (Паскаль).
Найти минимальноС число Π² массивС, паскаль.
МинимальноС Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅, ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ‚ ΠΈΠΌΠ΅Ρ‚ΡŒ число Ρ‚ΠΈΠΏΠ° Integer Π² ПаскалС.
Найти ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива ΠΈ Π΅Π³ΠΎ порядковый Π½ΠΎΠΌΠ΅Ρ€. Паскаль (Pascal).

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