Question

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

Answer 1

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

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.