одномерный массив

[ARomanov]

Ввод массивов осуществить в цикле при помощи генератора случайных чисел. Размерность массива задать с клавиатуры по желанию. Вывод массивов производите на чистом экране. Двумерные массивы выводите в виде таблиц.
Результаты решения вашей задачи выводите с пояснительными текстами, каждое с новой строки. Если в массиве произошли изменения по заданию, то необходимо еще раз вывести массив на экран.

Если в массиве сумма четных элементов положительна, найти максимальный элемент, иначе – все элементы удвоить.

program romanuk9_2;
uses crt;
type Mas = array[1..100] of integer;
var  A:mas;
     b,i,c,s,max:integer;
begin
  clrscr;
   s:=0;
  writeln('введите кол-во символов массива');
  readln(b);
  writeln;writeln;
  randomize;
  for i:=1 to b do begin

    A[i]:=random(200)-100;
    write(A[i]:5);
    end;
    writeln;
    for i:=1 to b do begin
    if A[i] mod 2=0 then
     s:=s+A[i];
    end;
    writeln(s,' -сумма нечетных элементов');
    c:=1;


     for i:=2 to b do
    if A[c]<A[i] then c:=i;
    max:=A[c];



     if s<0 then
    for i:=1 to b do begin
     A[i]:=A[i]*2; write(A[i],' ');
    end;
    if s>0 then
     writeln(max);


      readln;
end.

проблемы:
1)неправильно считает сумму

[weech]

Считает он все правильно; если речь, все-таки, идет о сумме четных элементов.