Задание с Массивами

[funikovatvar]

Для произвольного одномерного массива С из 10 элементов к четным прибавить максимальный элемент массива, а из элементов с четными номерами вычесть В, где В вводится с клавиатуры.

Не могу решить задание.

[Снег Север]

Для таких вопросов есть раздел "Помощь за вознаграждение"
viewforum.php?f=43
Никому не интересно просто так решать школьные задачки для тех, кто не удосуживается даже пытаться сам их решать.

[скалогрыз]

Никому не интересно просто так решать школьные задачки для тех, кто не удосуживается даже пытаться сам их решать.

да ладно! не будь таким суровым!
вот решение!

Код: Выделить всё

program massiv;

var
  C : array [1..10] of integer;
  maxC : integer;
  B : integer;
  N : integer;

begin
  N := 10;
  readln(b);
  C[1] := random(N);  C[2] := random(N);  C[3] := random(N);
  C[4] := random(N);  C[5] := random(N);  C[6] := random(N);
  C[7] := random(N);  C[8] := random(N);  C[9] := random(N);
  C[10] := random(N);
  writeln(c[1],' ',  c[2],' ',  c[3],' ',  c[4],' ',  c[5],' ',  c[6],' ',
  c[7],' ',  c[8],' ',  c[9],' ',  c[10]);


  maxC:=c[1];
  if maxC < c[2] then maxC:=c[2];  if maxC < c[3] then maxC:=c[3];
  if maxC < c[4] then maxC:=c[4];  if maxC < c[5] then maxC:=c[5];
  if maxC < c[6] then maxC:=c[6];  if maxC < c[7] then maxC:=c[7];
  if maxC < c[8] then maxC:=c[8];  if maxC < c[9] then maxC:=c[9];
  if maxC < c[10] then maxC:=c[10];

  if c[1] mod 2 = 0 then c[1]:=c[1]+maxC;
  if c[2] mod 2 = 0 then c[2]:=c[2]+maxC;
  if c[3] mod 2 = 0 then c[3]:=c[3]+maxC;
  if c[4] mod 2 = 0 then c[4]:=c[4]+maxC;
  if c[5] mod 2 = 0 then c[5]:=c[5]+maxC;
  if c[6] mod 2 = 0 then c[6]:=c[6]+maxC;
  if c[7] mod 2 = 0 then c[7]:=c[7]+maxC;
  if c[8] mod 2 = 0 then c[8]:=c[8]+maxC;
  if c[9] mod 2 = 0 then c[9]:=c[9]+maxC;
  if c[10] mod 2 = 0 then c[10]:=c[10]+maxC;

  C[2]:=C[2]-b;  C[4]:=C[4]-b;  C[6]:=C[6]-b;  C[8]:=C[8]-b;  C[10]:=C[10]-b;
  writeln(c[1],' ',  c[2],' ',  c[3],' ',  c[4],' ',  c[5],' ',  c[6],' ',
  c[7],' ',  c[8],' ',  c[9],' ',  c[10]);
  readln;

end.

[Vadim]

да ладно! не будь таким суровым!

Снег Север совершенно прав. Мало того, добавлю от себя, те люди "за которых" Вы решаете (не помогаете, ибо это не помощь) их учебные задания, потом, как ни удивительно, попадут в управленцы и будут управлять нами же руководствуясь отсутствием и знаний и умений. Ибо зачем им знания, если всё как-то само собой делается. "Зачем знать географию - ведь есть извозчики"...

[java73]

да ладно! не будь таким суровым!
вот решение!

не лень было? )))))))))))))

[xdsl]

да ладно! не будь таким суровым!
вот решение!

не лень было? )))))))))))))

Судя по коду - это изощренное издевательство над субъектом.
Судя по субъекту - он этого не понял)