Паскаль, 1курс, модуль

[mille]

Паскаль, 1курс, модуль

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

Это нужно решить хоть как-то

 

[Евгений]

var c:array[1..10] of integer;
    i,b,max:integer;
begin
  Randomize; max:=0;
  for i:=1 to 10 do
   begin
    c[i]:=Random(50); Write(c[i]:4);
    if c[i]>max then max:=c[i];
   end;
  Writeln; Writeln;
  Writeln('max = ',max); Writeln;
  Write('B = '); Readln(b);
  Writeln;
  for i:=1 to 10 do
   begin
    if (c[i] mod 2)=0 then c[i]:=c[i]+max;
    if (i mod 2)=0 then c[i]:=c[i]-b;
    Write(c[i]:4)
   end;
  Readln;
end.

 

[mille]

var c:array[1..10] of integer;
    i,b,max:integer;
begin
  Randomize; max:=0;
  for i:=1 to 10 do
   begin
    c[i]:=Random(50); Write(c[i]:4);
    if c[i]>max then max:=c[i];
   end;
  Writeln; Writeln;
  Writeln('max = ',max); Writeln;
  Write('B = '); Readln(b);
  Writeln;
  for i:=1 to 10 do
   begin
    if (c[i] mod 2)=0 then c[i]:=c[i]+max;
    if (i mod 2)=0 then c[i]:=c[i]-b;
    Write(c[i]:4)
   end;
  Readln;
end.

Спасибо большое