теперь осталась одна проблема:правильное нахождение суммы четных элементов.....
вот моя "исправленная программа":
Код:
{ђ®¬**оЄ 251}
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
if A[i] mod 2=0 then
s:=s+A[i];
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.