profile="http://gmpg.org/xfn/11"> НахоТдСниС максимального элСмСнта массива — Pascal. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

НахоТдСниС максимального элСмСнта массива — Pascal.

НахоТдСниС максимального элСмСнта массива — Pascal.
Попалась Π·Π°Π΄Π°Ρ‡Π° «ΠΠ°Ρ…ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ максимального элСмСнта массива, язык программирования Паскаль» Π½Π° ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½ΠΎΠΉ, ΠΏΡ€ΠΎΡˆΡƒ ΠΏΠΎΠΌΠΎΡ‡ΡŒ.
ΠžΡ‚Π²Π΅Ρ‚:

program Task_Max2;
  {НахоТдСниС максимального элСмСнта массива - Pascal}
  const
  n=10;
var
  i_Mas: array[1..n] of integer;
  i_MaxNum, i: integer;
begin
  Writeln('Π’Π²Π΅Π΄ΠΈΡ‚Π΅ ',n,' элСмСнтов массива');
  i_MaxNum := not( MAXINT);
  for i := 1 to n do
  begin
    ReadLn(i_Mas[i]);
    if i_MaxNum < i_Mas[i] then
    begin
      i_MaxNum := i_Mas[i];
    end;
  end;
  //Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран
  Writeln('ΠœΠ°ΠΊΡΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ элСмСнт массива Ρ€Π°Π²Π΅Π½ ', i_MaxNum);
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
НахоТдСниС максимального элСмСнта массива - Pascal
НахоТдСниС максимального элСмСнта массива — Pascal.

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

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