var
arr:array[1..1000] of integer;
i,N:integer;
max:integer;
begin
max:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do//Присваивание и вывод массива
begin
arr[i]:=1+random(100);
write(arr[i],' ');
if arr[i]>max then max:=arr[i];
end;
writeln;
writeln('Максимальный эл-т - ',max);
for i:=1 to N do//Увеличение чет. эл-ов
begin
if arr[i] mod 2=0 then arr[i]:=arr[i]+max;
write(arr[i],' ');
end;
end.
Объяснение:
var
A, N, i, s: Integer;
begin
Write ('Начальное число = ');
ReadLn (A);
Write ('Количество чисел = ');
ReadLn (N);
s := 0; // здесь будем накапливать сумму
for i := 0 to N - 1 do begin // цикл по количеству чисел
if (A + i) mod 2 = 0 then // если число четное
s := s + A + i; // добавление этого числа к сумме
end;
WriteLn ('Сумма четных чисел = ', s);
end.