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

Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами Π² паскалС.

Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами Π² паскалС.

program SumShet;

  {Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами}
const
  N = 10;
var
  i_ArNm: array[1..N] of integer;
  i, i_Sum: integer;
begin
  randomize;
  Writeln('Π—Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ массива псСвдослучайными числами');
  for i := 1 to N do
    i_ArNm[i] := random(20);
  {Π§Ρ‚Π΅Π½ΠΈΠ΅ массива, вычислСниС суммы элСмСнтов массива}
  for i := 1 to N do
    if (i mod 2) = 0 then
    begin
      i_Sum := i_Sum + i_ArNm[i];
      WriteLn('Π§Π΅Ρ‚Π½Ρ‹ΠΉ элСмСнт: ', i, ' число ', i_ArNm[i]);
    end;

  WriteLn('сумма Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов: ', i_Sum);
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами Π² паскалС
Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами Π² паскалС.

Один ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΉ Π½Π° “Найти сумму элСмСнтов массива с Ρ‡Π΅Ρ‚Π½Ρ‹ΠΌΠΈ индСксами Π² паскалС.”

  • ΠΊΠΎΡ‚:

    Π‘ΡƒΠΌΠΌΡƒ чисСл ΠΈΠ· Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… индСксов ΠΏΡ€ΠΎΡ‰Π΅ Π² этом ΠΊΠΎΠ΄. НС Π½Π°Π΄ΠΎ лишний Ρ€Π°Π· массив ΡΡ‡ΠΈΡ‚Ρ‹Π²Π°Ρ‚ΡŒ.
    const
    N = 10;
    var
    i_ArNm: array[1..N] of integer;
    i, i_Sum: integer;
    begin
    i_Sum:=0;
    randomize;
    Writeln(‘Π—Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ массива псСвдослучайными числами’);
    for i := 1 to N do
    begin
    i_ArNm[i] := random(40);
    WriteLn(‘i = ‘,i,’ число =’,i_ArNm[i]);
    if i mod 2 = 0 then
    Inc(i_Sum, i_ArNm[i]);
    end;
    WriteLn(‘сумма Ρ‡Π΅Ρ‚Π½Ρ‹Ρ… элСмСнтов: ‘, i_Sum);
    end.