Здравствуйте,
очень срочно!!,
нужно решить 2 задания из этой карточки (т.к.1-ое мною решено), а оставшиеся 2 не сходятся во ответе, И ОПРЕДЕЛИТЬ КАКОЙ ОПЕРАТОР (ПРИСВАИВАНИЯ) ВЫПОЛНЯЕТ ТУ ИЛИ ИНУЮ ФУНКЦИЮ.
Заранее спасибо;)

1.Const N = 10;Var i,S:integer; m:array [1..N] of integer;Begin        randomize;  S:=0;        for i:=1 to N do begin        m[i]:= random(201)-100;        writeln(m[i]);        end;        for i:=1 to N do         if m[i] mod 2 = 0 then         S:=S+m[i];        writeln('Summa = ',S);         readln;end.2.Const N = 100;Var i,p:integer; B:array [1..N] of integer;Begin        randomize;  p:=0;        for i:=1 to N do begin        B[i]:= random(201)-100;        writeln(B[i]);        end;        for i:=1 to N do         if B[i] mod 3 = 0 then         p:=p*B[i];        writeln('Proiz = ',p);         readln;end.

это перепроверить ещё надо

я не знаю паскаля, но ты уверен что в конце readln не нужны () ?

я не уверен, я же сказал, надо проверить

Наверное, это

1.program z;

var a:array [1..10] of integer; i,t:integer; s:real;

begin

for i:=1 to 10 do

begin

a[i]:=random(1,100);

write(a[i]:4);

if (odd(i)) and (odd(a[i])) then

begin

s:=s+a[i];

t:=t+1;

end;

end;

writeln;

write('Cреднее арифметическое = ',s/t);

end.

2.program z;

var a:array[1..10] of integer; max,i:integer;

begin

writeln('Исходный массив');

for i:=1 to 10 do

begin

a[i]:=random(1,100);

write(a[i]:4);

if a[i]>max then max:=a[i];

end;

writeln;

writeln('Измененный массив');

for i:=1 to 10 do

begin

if not(odd(a[i])) then a[i]:=max;

write(a[i]:4);

end;

end.