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

Π”Π°Π½ цСлочислСнный массив Π°(10), Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΉ Π΄Π°Ρ‚Ρ‡ΠΈΠΊΠΎΠΌ случайных чисСл. Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива срСди Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов.

Π”Π°Π½ цСлочислСнный массив Π°(10), Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΉ Π΄Π°Ρ‚Ρ‡ΠΈΠΊΠΎΠΌ случайных чисСл. Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива срСди Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов.

program Task_Max4;

  {Π”Π°Π½ цСлочислСнный массив Π°(10), Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΉ Π΄Π°Ρ‚Ρ‡ΠΈΠΊΠΎΠΌ случайных чисСл.
  Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива срСди Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов.}
const
  n = 10;
var
  a: array[1..n] of integer;
  i_MaxNum, i, i_Temp: integer;
begin
  Randomize();
  i_MaxNum := not (MAXINT);
  i_Temp := 0;
  for i := 1 to n do
  begin
    a[i] := Random(20) + 1;
    Writeln('i: ', i, ', Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ', a[i]);
    i_Temp := a[i] mod 2;
    if i_Temp = 0 then
    begin
      if i_MaxNum < a[i] then
      begin
        i_MaxNum := a[i];
      end;
    end;
  end;

  //Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран
  Writeln('ΠœΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива срСди Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов: ', i_MaxNum);
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Π”Π°Π½ цСлочислСнный массив Π°(10), Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΉ Π΄Π°Ρ‚Ρ‡ΠΈΠΊΠΎΠΌ случайных чисСл. Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива срСди Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов
Π”Π°Π½ цСлочислСнный массив Π°(10), Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½Ρ‹ΠΉ Π΄Π°Ρ‚Ρ‡ΠΈΠΊΠΎΠΌ случайных чисСл. Найти ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива срСди Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов.

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

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